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PREFACE 


This  volume  is  the  fourth  of  six  volumes  that  describe  the  LMI  Sortie- 
Generation  Model  System.  Volume  I,  Executive  Summary,  discusses  the  problem 
the  system  is  designed  to  address  and  provides  an  overview  of  the  principal 
parts  of  the  system.  Volume  II,  Sortie-Generation  Model  User's  Guide,  pro¬ 
vides  sufficient  information  to  allow  a  user  to  run  the  Sortie-Generation 
Model  (SGM) .  Volume  III,  Sortie-Generation  Model  Analyst's  Manual,  describes 
the  mathematical  structures,  derivations,  assumptions,  limitations,  and  data 

sources  of  the  SGM  at  a  very  detailed  level.  Volume ^lV^  Sortie-Generation 

(S6M) 

Model^  Programmer ' s  Manual,  specifies  the  details  of  the  computer  programs, 
file  structures,  job  control  language,  and  operating  environment  of  the  SGM. 
Volume  V  describes  the  maintenance  subsystem  and  explains  the  construction  of 
the  maintenance  input  file  to  the  SGM.  Volume  VI  describes  the  spares  sub¬ 
system  and  shows  a  user  how  to  build  the  spares  file  that  is  used  by  the  SGM. 

Potential  users  are  cautioned  that  no  volume  is  intended  to  provide,  by 
itself,  all  of  the  information  needed  for  a  comprehensive  understanding  of  the 
operation  of  the  SGM. 
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VOLUME  IV 

SORTIE-GENERATION  MODEL  PROGRAMMER'S  MANUAL 


1.  MODEL  DESCRIPTION 


INTRODUCTION 

The  purpose  of  this  chapter  is  to  describe  the  basic  logical  structure  of 
the  Sortie-Generation  Model  (SGM) .  This  description  provides  a  useful  frame¬ 
work  for  understanding  the  details  of  the  computer  implementation  which  are 
provided  in  the  later  chapters  of  this  volume.  For  the  reader's  convenience, 
the  remainder  of  this  chapter  is  included  here  and  may  also  be  found  in  Volume 
II,  Sortie-Generation  Model  User's  Guide. 

STATES  AND  PROCESSES 

The  SGM  is  a  hybrid  analytic/simulation  model  that  estimates  the  expected 
maximal  number  of  sorties  that  can  be  flown  by  a  specified  aircraft  type  in  a 
wartime  scenario.  This  estimate  is  based  on  aircraft  characteristics,  mainte¬ 
nance  manpower  and  recoverable  spares  levels,  and  user  inputs  that  describe 
the  scenario  of  interest. 

The  SGM  consists  of  a  collection  of  aircraft  states ,  processes  that  cause 
transitions  between  states,  and  logic  that  governs  those  processes.  The  SGM 
simulates  the  transition  of  aircraft  between  these  states  throughout  a  daily 
flying  schedule  that  is  specified  by  the  user.  The  definitions  of  the  states, 
the  logic  of  the  state  transitions,  and  the  interaction  of  these  transitions 
with  the  flying  schedule  determine  the  basic  structure  of  the  SGM. 

Aircraft  States 

There  are  five  aircraft  states  in  the  SGM: 

1)  Mission-capable 

?)  Maintenance 

3)  Not  mission-capable,  supply  (NMCS) 

4)  Combat  loss 

5)  Reserve 


These  states  are  mutually  exclusive  and  collectively  exhaustive;  i.e.,  every 
aircraft  is  in  one  and  only  one  state.  The  states  are  described  below. 


Mission  Capable.  An  aircraft  is  considered  mission-capable  if  it  is 
capable  of  flying  a  combat  mission.  It  is  not  mission-capable  if  it  is  under¬ 
going  essential  corrective  maintenance,  or  is  missing  a  mission-essential 
part.  There  is  no  explicit  representation  in  the  SGM  of  aircraft  that  are 
partially  mission-capable. 

Maintenance .  An  aircraft  is  in  maintenance  status  if  it  requires 
unscheduled,  on-aircraft  repair  that  is  essential  to  the  performance  of  its 
mission.  This  repair  may  or  may  not  be  due  to  failure  of  a  part;  however,  in 
this  model,  an  aircraft  is  not  allowed  to  enter  maintenance  until  all  needed 
parts  have  been  obtained  from  supply  or  repair. 

NMCS.  An  aircraft  is  not  mission-capable,  supply  if  the  aircraft  is 
missing  an  essential  part.  In  the  SGM,  only  mission-essential  Line  Replace¬ 
able  Units  (LRUs)  can  cause  an  aircraft  to  become  NMCS. 

Combat  Loss.  An  aircraft  is  counted  as  a  combat  loss  if  it  does  not 
return  from  a  sortie.  Once  an  aircraft  has  been  lost  it  can  never  be  re¬ 
covered.  Battle-damaged  aircraft  that  return  from  a  sortie  are  not  considered 
in  this  model. 

Reserve .  Reserve  aircraft  consist  of  mission-capable  aircraft  that 
are  used  to  replace  combat  losses.  The  user  specifies  an  initial  number  of 
aircraft  that  are  held  in  reserve  at  the  beginning  of  the  scenario;  these 
reserve  aircraft  replace  combat  losses  at  the  end  of  each  day,  until  all 
reserves  have  been  exhausted.  Aircraft  are  allowed  to  leave  this  reserve 
state,  but  no  aircraft  can  enter  it. 
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Processes  -  Transitions  Between  States 

There  are  eight  processes  in  the  SGM  which  cause  transitions  between 
aircraft  states: 

1)  Ground  aborts 

2)  Breaks 

3)  Aircraft  repairs 

4)  Parts  demands 

5)  Parts  repair 

6)  Cannibalization 

7)  Attrition 

8)  Commitment  of  reserves 

Figure  1-1  depicts  the  relationships  among  the  various  states  and  processes. 
EVENTS 

The  events  that  occur  in  the  SGM  are  related  to  a  flying  schedule  with 
user-specified  characteristics.  The  flying  schedule  consists  of  a  number  of 
periods  or  cycles  each  of  which  is  divided  into  three  segments  of  lengths  T^, 
Tp,  and  T^,  respectively.  During  the  last  period,  the  T^  segment  is  replaced 
by  an  overnight  recovery  period.  The  user  specifies  the  first  and  last  take¬ 
off  times  of  the  day;  the  time,  T^,  which  is  the  average  minimal  length  of 
time  required  to  launch  a  sortie  given  a  mission-capable  aircraft;  the  sortie 
length,  Tj,;  and  the  number  of  periods  per  day.  The  time,  T^,  is  then  computed 
by  the  SGM  program.  The  flying  schedule  is  the  same  each  day  except  for  the 
number  of  aircraft  to  be  flown  each  period,  which  the  user  can  vary.  A 
typical  flying  schedule  is  portrayed  in  Figure  1-2. 

Figure  1-3  portrays  two  segments  of  a  flying  day;  the  flying  period  on 
the  left  is  intended  to  be  typical  and  the  one  on  the  right  to  be  the  last 
period  of  the  day.  The  events  that  occur  in  the  SGM  are  denoted  by  circled 
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FIGURE  1-1 

STATES  AND  PROCESSES 
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numbers  placed  under  the  figures  at  the  appropriate  positions  on  the  time 
line.  Each  of  those  events  is  described  here. 

Event  1 

All  mission-capable  aircraft  are  prepared  for  launch.  Any  aircraft 
that  is  not  mission-capable  at  this  time  (i.e.,  before  takeoff)  cannot  be 
flown  during  this  cycle  because,  by  definition,  is  the  minimal  time  re¬ 
quired  to  launch  an  aircraft  that  is  mission-capable. 

Event  2 

Aircraft  that  are  repaired  during  the  period  of  length  leave 
maintenance  and  become  mission-capable  but  are  not  available  for  flight  during 
this  cycle. 

Event  3 

All  aircraft  that  were  prepared  for  takeoff  are  subjected  to  the 
probability  of  ground  abort.  A  ground  abort  is  defined  as  an  unsuccessful 
attempt  by  an  aircrew  to  fly  an  aircraft.  The  aborted  aircraft  enter  mainte¬ 
nance.  No  parts  demands  are  generated  by  ground  aborts. 

Event  4 

The  remaining  aircraft  that  were  prepared,  for  takeoff  fly  sorties. 

Event  5 

Each  aircraft  that  flies  is  subjected  to  the  probability  of  attri¬ 
tion  and,  for  each  combat  loss,  an  aircraft  is  deducted  from  the  current 
strength  of  the  organization. 

Event  6 

Aircraft  that  are  repaired  during  the  period  of  length  Tj,  leave 


maintenance  and  become  mission-capable. 


Event  7 


Each  aircraft  returning  from  flight  is  subjected  to  the  probability 
of  break,  i.e.,  the  probability  of  requiring  essential  corrective  maintenance 
prior  to  flying  another  combat  mission.  At  the  same  time,  parts  demands  are 
generated.  Demands  that  can  be  filled  from  stock  on-hand  result  in  issues  of 
that  stock.  Demands  that  cannot  be  filled  from  stock  and  cannot  be  satisfied 
by  cannibalization  from  aircraft  that  are  NMCS  result  in  additional  aircraft 
becoming  NMCS. 

Event  8 

Aircraft  that  are  repaired  during  the  period  of  length  leave 
maintenance  and  become  mission-capable. 

Event  9 

This  event  occurs  only  after  the  last  flight  of  the  day.  It  ac¬ 
counts  for  the  parts  repair  process  by  subjecting  each  part  in  repair  to  the 
probability  that  the  repair  was  completed  during  the  preceding  24  hours. 
Remaining  parts  shortages  are  consolidated  on  as  few  aircraft  as  possible.  If 
the  consolidation  results  in  fewer  NMCS  aircraft  than  before,  the  aircraft 
leaving  NMCS  status  enter  maintenance  at  this  time. 

Event  10 

This  event  also  occurs  only  after  the  last  flight  of  the  day. 
Combat  losses  may  be  replaced  by  available  reserve  aircraft,  if  the  user  so 
specifies.  Any  remaining  reserve  aircraft  after  losses  have  been  replaced  are 
committed  according  to  user  specification  in  the  scenario  input  parameter.  If 
reserves  are  to  be  used  only  as  attrition  fillers,  then  any  remaining  reserve 
aircraft  are  left  in  the  reserve  pool;  thus,  the  UE  for  the  scenario  will 
never  increase.  If  the  user  has  selected  the  reserve  augmentation  mode,  then 
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all  reserve  aircraft  will  be  committed  when  they  become  available;  hence,  the 
UE  for  the  scenario  may  actually  increase. 

REPAIR  PROCESS 

The  entry  of  an  aircraft  into  maintenance  results  from  a  ground  abort  or 
a  "break"  during  a  sortie.  In  either  case,  following  the  ground  abort  or 
sortie,  the  aircraft  is  subjected  to  a  sequence  of  random  draws  that  deter¬ 
mines  the  subset  of  work  centers  that  will  be  involved  in  the  maintenance  on 
that  aircraft.  A  work  center  is  a  set  of  maintenance  personnel  with  a  par¬ 
ticular  skill.  Examples  of  work  centers  are  the  structural  repair  shop,  the 
hydraulic  shop,  and  the  automatic  flight  control  system  shop. 

In  the  construction  of  the  maintenance  data  base  that  supports  the  SGM, 
the  aircraft  repair  times  for  all  work  centers  involved  in  the  repair  of  the 
aircraft  are  measured  from  the  time  of  the  ground  abort  or  landing  of  the 
aircraft.  For  each  work  center  involved  in  the  repair,  a  random  draw  is  made 
from  an  exponential  distribution  of  repair  time  for  that  work  center.  The 
mean  of  that  distribution  is  the  reciprocal  of  the  service  rate  contained  in 
the  maintenance  data  base  for  the  work  center  in  question.  All  work  centers 
involved  in  the  repair  are  assumed  to  work  on  the  aircraft  simultaneously; 
thus,  the  recovery  time  of  the  aircraft  is  simply  the  longest  of  the  repair 
times  for  all  the  work  centers  involved  in  the  recovery  of  that  particular 
aircraft. 

In  the  SGM,  once  the  aircraft  leaves  maintenance  and  becomes  mission- 
capable  again,  it  oses  its  identity  and  is  counted  simply  as  another  aircraft 
in  the  mission-capable  pool. 
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2.  COMPUTER  IMPLEMENTATION 


INTRODUCTION 

This  chapter  describes  the  computer  program  implementation  of  the  logical 
structure  discussed  in  Chapter  1.  The  purposes  of  this  description  are  to 
provide  a  macro-level  view  of  the  model  implementation,  identify  its  current 
computer  environment,  and  discuss  the  software  design  goals  used  in  the  devel¬ 
opment  of  the  SGM  routines.  The  micro-level  information  such  as  detailed 
routine  descriptions,  common  definitions,  error-message  descriptions,  etc.,  is 
presented  in  later  chapters  and  appendices. 

The  first  portion  of  the  chapter  provides  a  general  overview  of  the  model 
architecture.  The  processing  flow  and  major  components  are  identified  and 
discussed.  This  overview  should  help  a  programmer  understand  how  everything 
is  tied  together  in  the  model  and  provide  a  starting  point  for  detailed  main¬ 
tenance  or  modification  of  the  model. 

The  next  portion  of  the  chapter  provides  a  short  description  of  the 
computer  environment  in  which  the  SGM  was  developed  and  is  currently  operat¬ 
ing.  References  to  the  appropriate  computer  manuals  are  provided  in  Appendix 
A. 

The  remainder  of  the  chapter  explains  the  design  goals  used  in  the  devel¬ 
opment  of  the  SGM  routines.  Appendix  C  contains  detailed  documentation  of  the 
individual  routines  as  part  of  the  program  listings.  Included  with  the  dis- 
cussio  i  of  the  SGM  routines  is  a  description  of  the  system  utilities  used  in 
the  SGM.  The  use  of  such  utilities  has  been  minimized  to  allow  the  SGM  to  be 
more  easily  moved  to  different  computer  environments.  The  description  pro¬ 
vides  sufficient  detail  to  enable  a  programmer  to  develop  similar  routines  if 
they  are  unavailable  on  another  system. 
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MODEL  STRUCTURE 


Figure  2-1  shows  the  basic  structure  of  the  SGM.  This  block  diagram 
describes  the  processing  flow  between  the  major  routines  comprising  the  SGM. 
The  SGM  is  a  three-phase  process:  the  initialization  phase  in  which  the 
scenario  parameters,  aircraft  maintenance  work  centers,  and  spares  data  are 
initialized;  the  performance  of  the  actual  simulation;  and  finally  the  print¬ 
ing  of  the  sortie  results  collected  during  the  simulation.  Descriptions  of 
these  phases  follow. 

Initialization 

The  INIT  routine  performs  the  initialization  steps  necessary  to 
prepare  the  various  variables,  arrays,  and  tables  needed  for  the  simulation. 
As  shown  in  Figure  2-2,  initialization  is  a  three-step  process.  First,  the 
scenario  input  parameters  are  loaded  and  initialized  by  the  INITSCN  routine. 
This  routine  reads  the  scenario  input  file  (file-01)  created  by  the  Set- 
Parameter  Program,  creates  the  temporary  scratch  file  containing  the  param¬ 
eters  which  are  allowed  to  vary  on  a  daily  basis,  and  prints  a  scenario  sum¬ 
mary  listing  the  parameters  for  this  SGM  run. 

The  second  step  initializes  the  information  describing  aircraft 
maintenance  in  the  work  centers.  The  INITWC  routine  loads  the  work-center 
input  data  (file-02),  computes  the  break-rate  probabilities  needed  for 
sampling  work-center  loading,  and  prints  a  summary  of  the  work-center 
parameters  for  this  SGM  run. 

Finally,  the  spare-parts  variables  are  initialized  by  the  INITPRT 
routine.  The  spares  inputs  are  loaded  (file-04),  and  statistics  and  prob¬ 
abilities  needvu  for  parts  sampling  are  computed.  Due  to  the  large  number  of 
part  types  used  with  each  SGM  run,  a  listing  of  the  spares  inputs  is  not 
provided  as  part  of  the  SGM  output  results. 


T 


FIGURE  2-1.  SGM  BLOCK 


DIAGRAM 
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INIT 


INITSCN:  Initialize  Scenario  parameters. 
INITWC:  Initialize  Work  Center  Data. 

INITPRT :  Initialize  Spares  Data. 

FIGURE  2-2.  SGM  INITIALIZATION 


This  initialization  process  is  entirely  distinct  from  the  remainder 
of  the  SGM.  Once  the  initialization  process  has  been  completed,  INIT  and  its 
corresponding  subroutines  are  no  longer  needed  for  any  other  phase  of  the 
simulation.  Thus,  these  routines  could  be  overlaid  with  the  remainder  of  the 
model  routines  to  conserve  memory  requirements.  Since  our  typical  flying 
scenarios  run  adequately  within  our  computer  memory  restrictions,  we  do  not 
currently  use  overlay  techniques. 

Simulation 

The  SIMULA  routine  performs  the  simulation  phase  of  the  SGM.  This 
routine  consists  of  repeated  execution  of  the  FLYCYC  routine  which  represents 
the  flying  cycle  described  in  Chapter  1.  Figure  2-3  provides  an  outline  of 
the  basic  structure  of  these  routines.  For  each  replication  of  the  simula¬ 
tion,  the  specified  number  of  flying  days  is  simulated;  a  flying  day  consists 
of  a  sequence  of  identical  flying  cycles  followed  by  an  overnight  period 
before  the  start  of  the  next  day  (see  Figure  1-1). 

The  flying  cycle  simulated  in  FLYCYC  is  the  basic  logical  unit  of 
the  SGM.  As  shown  in  Figure  2-3,  the  subroutines  comprising  FLYCYC  represent 
the  various  processes  which  cause  transitions  between  aircraft  states,  e.g., 
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attrition,  ground  aborts,  aircraft  repair,  etc.  This  implementation  follows 
very  closely  the  event  description  of  a  flying  cycle  shown  in  Figure  1-3. 

Each  flying  cycle  consists  of  three  periods:  a  minimal  recovery 
period,  sortie  period,  and  wait  or  overnight  period.  The  results  of  the 
various  aircraft  processes  are  computed  at  the  start  or  end  of  each  period, 
and  the  number  of  aircraft  in  each  of  the  states  is  updated  accordingly.  For 
example,  aircraft  repair  (REPAIR  routine)  is  performed  at  the  end  of  every 
period  to  determine  the  number  of  aircraft  repairs  which  have  been  made  during 
that  period.  Any  repairs  would  result  in  transfer  of  aircraft  from  the  main¬ 
tenance  state  to  the  mission-capable  state. 

Thus,  the  SGM  is  a  time-stepped  simulation.  At  the  end  of  each 
period  (periods  may  be  of  different  lengths),  the  effects  of  processes  on  air¬ 
craft  states  are  updated.  The  implementation  of  each  aircraft  process  is 
represented  by  a  major  module  of  the  SGM  (except  the  BREAK  routine  which 
includes  aircraft  breaks,  part  demands  and  cannibalization).  A  detailed 
discussion  of  the  implementation  of  each  process  is  provided  in  the  docu¬ 
mentation  for  the  corresponding  module.  This  documentation  is  included  in  the 
program  listings  in  Appendix  C.  The  following  paragraphs  describe  the  inter¬ 
action  of  these  processes  during  each  of  the  periods  comprising  a  flying 
cycle. 

Minimal  Recovery  Period.  At  the  start  of  this  period,  the  number  of 
flyable  aircraft  is  determined  from  the  number  of  aircraft  in  the  mission- 
capable  state.  The  actual  number  which  begin  either  a  preflight  or  thruf light 
inspection  to  prepare  for  the  next  sortie  is  computed  as  the  minimum  of  fly- 
able  aircraft  and  scheduled  sorties. 

At  the  end  of  the  period,  the  number  of  aircraft  repairs  and  ground 
aborts  are  determined  by  the  REPAIR  and  GABORT  routines  respectively.  REPAIR 


computes  the  number  of  aircraft  repairs  which  have  occurred  during  this  ,,  =  riod 
causing  transfer  of  aircraft  from  the  maintenance  state  to  the  mission-capable 
state.  GABORT  computes  the  number  of  ground  aborts  among  the  aircraft  prepar¬ 
ing  for  flight,  causing  the  transfer  of  aircraft  from  mission-capable  to  main¬ 
tenance.  Although  these  routines  represent  simultaneous  points  in  simulated 
time,  the  actual  order  of  execution  is  important.  Aircraft  repairs  are  com¬ 
puted  first  to  ensure  that  new  ground  aborts  have  no  chance  to  be  repaired  in 
this  period. 

Sortie  Period.  All  aircraft  scheduled  for  the  flying  period,  which 
did  not  ground-abort,  are  counted  as  having  flown  a  sortie,  and  the  various 
statistics  for  sortie  results  are  updated.  The  ATTRIT  routine  is  called  next 
to  determine  the  number  of  aircraft  transferred  from  the  mission-capable  state 
to  the  combat-losses  state.  These  attritted  aircraft  are  still  counted  as 
having  flown  a  sortie. 

At  the  end  of  this  period,  the  REPAIR,  PRTREP,  and  BREAK  routines 
cause  transfer  of  aircraft  between  the  maintenance,  NORS,  and  mission-capable 
states.  The  order  of  execution  here  is  very  important.  First,  REPAIR  com¬ 
putes  aircraft  repairs  during  the  sortie  period.  These  repaired  aircraft  are 
transferred  from  maintenance  to  mission-capable.  Next  PRTREP  determines,  for 
each  part  type,  the  number  of  parts  resupplied  since  the  last  parts-repair 
calculation.  In  addition,  as  the  number  of  backorders  for  each  type  is  up¬ 
dated,  a  new  number  of  NORS  aircraft  is  computed  assuming  maximum  cannibaliza¬ 
tion.  Any  decrease  from  the  old  NORS  number  is  transferred  from  the  NORS 
state  to  the  mission-capable  state.  PRTREP  is  executed  after  REPAIR  to  ensure 
that  these  new  aircraft  entering  maintenance  do  not  have  a  chance  to  be 
repaired  during  the  sortie  period.  PRTREP  is  actually  executed  only  once  each 


day  on  the  last  flying  cycle  of  the  day.  Parts  repair  is  an  extremely  time- 
consuming  process  because  of  the  large  number  of  part  types  modeled;  hence,  we 
approximate  the  parts  repair  process  by  only  updating  the  parts  resupplied 
once  every  24  hours . 

BREAK  computes  the  number  of  aircraft  breaks  at  the  end  of  the 
sortie  and  determines  the  part  demands  resulting  from  these  breaks.  Any 
demands  which  cannot  be  filled,  either  from  the  on-hand  stock  or  by  maximum 
cannibalization,  result  in  NORS  aircraft.  The  remaining  broken  aircraft  are 
transferred  directly  to  the  maintenance  state.  Since  BREAK  may  cause  new 
aircraft  in  maintenance  and  new  parts  in  resupply,  it  must  be  called  after 
REPAIR  and  PRTREP  to  ensure  that  these  parts  or  aircraft  are  not  allowed  to  be 
repaired  instantaneously  by  these  routines. 

Wait  Period.  Aircraft  repairs  are  determined  by  the  REPAIR  routine 
at  the  end  of  this  period.  These  repaired  aircraft  are  transferred  to  the 
mission-capable  state  and  are  immediately  available  to  fly. 

Overnight  Period.  The  last  flying  cycle  of  the  day  has  an  overnight 
period  instead  of  a  wait  period.  Again,  aircraft  repairs  are  determined  at 
the  end  of  the  period  by  the  REPAIR  routine.  Also,  the  available  reserve 
aircraft  are  committed  at  this  point  of  the  flying  day  by  the  CRESERV  routine. 
Since  the  reserves  arrive  in  a  fully  mission-capable  state,  the  REPAIR  compu¬ 
tations  are  unaffected  by  CRESERV;  hence,  the  order  of  execution  here  is 
unimportant . 

Print  Results 

The  final  step  of  each  SGM  simulation  run  is  performed  by  the  PRINTO 
routine.  It  computes  the  sortie  statistics,  prepares  data  for  sortie  plots, 
and  prints  the  results  of  the  SGM  run.  Descriptions  and  samples  of  these 
results  and  plots  are  provided  in  Volume  II,  SGM  User’s  Guide. 
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The  sortie  statistics  printed  by  this  routine  consist  of  the  average 
numbers  of  aircraft  in  each  possible  aircraft  state.  These  data  are  collected 
at  the  beginning  of  each  sortie  period  during  each  flying  cycle  throughout  the 
simulation;  PRINTO  computes  the  averages  and  various  cumulative  totals  and 
prints  a  sortie  profile  describing  the  simulation  results  for  each  flying 
cycle  of  each  flying  day. 

This  routine  also  creates  a  temporary  data  file  (file-07)  to  pass 
sortie  results  to  the  Plot  Program.  This  file  contains,  for  each  flying  day, 
the  total  number  of  sorties  flown  and  the  average  number  of  sorties  flown  per 
aircraft.  These  results  are  graphed  by  the  Plot  Program  as  part  of  the  SGM 
output. 

As  with  the  initiali2ation  routines,  the  PRINTO  routine  is  entirely 
distinct  from  the  initialization  and  simulation  portions  of  the  SGM.  Once  the 
simulation  has  been  completed  those  routines  could  be  overlaid  with  the  PRINTO 
routine. 

COMPUTER  ENVIRONMENT 

The  SGM  has  been  developed  on  System  C,  an  unclassified  computer  system 
located  at  the  Pentagon  and  supported  by  the  Air  Force  Data  Services  Center 
(AFDSC) .  This  system  operates  on  a  Honeywell  G-635  computer  under  the  series 
600/6000  GC0S  Time-Sharing  System.  Access  to  the  system  is  possible  on  remote 
terminals  by  a  dial-up  procedure. 

The  SGM  has  been  written  in  the  Honeywell  600/6000  FORTRAN  programming 
language,  the  only  version  of  FORTRAN  available  on  the  system.  The  run  pro¬ 
cess  has  been  designed  so  that  the  model  may  be  run  in  either  the  remote-batch 
or  time-sharing  modes.  There  are  advantages  and  disadvantages  to  both  proced¬ 
ures.  If  System  C  is  carrying  a  light  load  (i.e.,  only  a  few  users  are  signed 
on),  then  a  time  sharing  run  is  significantly  faster;  however,  throughout  the 
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simulation  the  terminal  cannot  be  used  for  any  other  purpose  and  it  is  not 
possible  to  direct  the  output  elsewhere.  Once  a  job  has  been  submitted  inter¬ 
actively  to  be  run  as  a  batch  job,  the  user  is  free  to  make  other  runs,  use 
the  terminal  for  some  other  purpose,  or  even  to  log-off  the  computer. 

For  a  detailed  description  of  System  C,  the  Time-Sharing  System,  and 
FORTRAN  600/6000,  the  user  is  referred  to  the  Honeywell  and  AFDSC  manuals 
referenced  in  Appendix  A. 

SGM  ROUTINES 

The  SGM  currently  consists  of  a  main  program  and  39  subroutines,  func¬ 
tions,  and  block  data  subprograms.  Figure  2-4  provides  a  list  and  short 
description  of  each  of  these  FORTRAN  routines.  Complete  program  listings  of 
all  routines  can  be  found  in  Appendix  C  of  this  volume. 

These  routines  have  been  designed  to  be  self-documenting.  Extensive 
comments  have  been  included  with  each  routine  to  describe  the  purpose  of  the 
routine  and  define  each  of  its  input  and  output  arguments.  Definitions  are 
also  provided  for  all  common  variables  referenced  or  modified  by  the  routine. 

All  routines  are  written  using  Program  Design  Language  (PDL) ,  a  software 
development  technique  for  designing  and  documenting  routines.  With  PDL, 
logical  steps  in  the  routine  are  expressed  in  "structured"  English  statements. 
The  actual  FORTRAN  programming  language  statements  are  inserted  immediately 
following  the  corresponding  PDL  statement.  The  use  of  PDL  eliminates  the  need 
for  flow  charts;  PDL  designs  are  easier  to  produce,  easier  to  change,  and 
easier  to  read  than  flow  chart  forms.  More  detailed  descriptions  of  PDL  are 
provided  in  "PDL  -  A  Tool  For  Software  Design"  and  Software  Documentation  and 
Development  Conventions ,  which  are  referenced  in  Appendix  A  of  this  volume. 

Routines  have  also  been  designed  using  a  top  down,  structured  programming 
approach.  Each  routine  is  modular;  most  are  less  than  one  page  and  none  are 
more  than  three  pages  in  length. 


ROUTINE 


MAIN 

ALIAS 

ATTRIT 

BLOCK  DATA 

BREAK 

CRESERV 

FLYCYC 

OABORT 

INIT 

INITBO 

INI  TF'RT 

INITREP 

INITSCN 

I N I TWO 

I  F'O  I SSON 

LB  ITS 

MAKER D 

MNOM 

MUPDATE 

NIB  ITS 

N1VECT 

NBINOM 

NDMNDS 

NORSAC 

NORSBK 

NREPS. 

PR INTO 

PRTREP 

PSTAT 

REPAIR 

SIMULA 

SORTDS 

TBITSL 

TBIT  SR 

UEUF'DAT 

WCDIST 

WCPROB 

WCREAD 

XNORM 

ZBITSL 


.  -  Wi 


DESCRIPTION 


MAIN  PROGRAM  FOR  LMI  SORTIE-GENERATION  MODEL  <SGM>. 
INITIALIZE  TABLES  NEEDED  FOR  "ALIAS"  SAMPLING  METHOD 
SIMULATE  ATTRITION  PROCESS  DURING  A  SORTIE  PERIOD. 
INITIALIZES  COMMON  TABLES  FOR  BIT  MANIPULATIONS. 
SIMULATE  AIRCRAFT  BREAKS  AFTER  A  SORTIE. 

COMMIT  RESERVE  AIRCRAFT. 

SIMULATE  AIRCRAFT  FLYING  CYCLE. 

SIMULATE  AIRCRAFT  GROUND-ABORT  PROCESS. 

INITIALIZE  SGM  SIMULATION. 

INITIALIZE  PARTS  IN  RESUPPLY  AT  START  OF  SIMULATION. 
LOAD  AND  INITIALIZE  SPARE-PARTS  DATA. 

INITIALIZE  VARIABLES  FOR  A  SIMULATION  REPLICATION. 
READ  AND  INITIALIZES  SCENARIO  INPUTS. 

LOAD  AND  INITIALIZE  MAINTENANCE  WORK  CENTER  DATA. 
GENERATE  RANDOM  SAMPLE  FROM  A  POISSON  DISTRIBUTION. 
MASK-OFF  LEFTMOST  1-BITS  IN  A  COMPUTER  WORD. 

CONVERTS  PARTS  DEMAND  ARRAY  INTO  A  PDF. 

GENERATE  MULTINOMIAL  SAMPLE  FOR  PART  DEMAND  TYPE. 
UPDATE  MAINTENANCE  AIRCRAFT-STATE  BIT-VECTOR. 

COUNT  NUMBER  OF  1-BITS  IN  A  COMPUTER  WORD. 

COUNT  NUMBER  OF  1-BITS  IN  A  BIT-VECTOR. 

GENERATE  RANDOM  SAMPLE  FROM  BINOMIAL  DISTRIBUTION. 
GENERATE  SAMPLE  OF  TOTAL  SORTIE  PART  DEMANDS. 
CALCULATE  INITIAL  NUMBER  OF  NORS  AIRCRAFT. 

DETERMINES  NORS  AIRCRAFT  FROM  A  SORTIE. 

RANDOM  SAMPLE  OF  AIRCRAFT  REPAIRS  IN  A  WORK  CENTER. 
PRINT-OUT  RESULTS  OF  THE  SIMULATION  RUN. 

SIMULATES  PROCESS  OF  REPAIRING  PARTS. 

CALCULATES  STATISTICS  FOR  TOTAL  PART  DEMANDS. 
SIMULATES  PROCESS  OF  WORK  CENTER  AIRCRAFT  REPAIR. 
PERFORM  SIMULATION  REPLICATIONS. 

DESCENDING  SORT  OF  A  REAL  ARRAY. 

TRANSFER  1-BITS  FROM  LEFT  OF  A  BIT-VECTOR. 

TRANSFER  1-BITS  FROM  RIGHT  OF  A  BIT-VECTOR. 

UPDATE  UE-STRENGTH  FOR  SCENARIO. 

DETERMINE  BREAK  DISTRIBUTION  INTO  WORK  CENTERS. 
INITIALIZE  WORK-CENTER  SEQUENTIAL  BREAK  PROBABILITY 
READ  AND  INITIALIZE  WORK  CENTER  DATA. 

DRAW  RANDOM  SAMPLE  FROM  A  NORMAL  DISTRIBUTION. 
ZERO-OUT  1-BITS  IN  LEFTMOST  PORTION  OF  A  WORD. 


FIGURE  2-4.  SGM  ROUTINES 
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SYSTEM  ROUTINES 


The  SGM  uses  a  number  of  system-supplied  utility  routines.  A  list  of  all 
such  routines  is  shown  in  Figure  2-5,  and  the  remainder  of  this  section  pro¬ 
vides  a  description  of  each  routine. 

ROUTINE  DESCRIPTION 

CONCAT  -  MOVE  CHARACTER  STRING. 

F CLOSE  -  CLOSE-OUT  A  FILE. 

ME MS I Z  -  DETERMINE  ALLOCATED  MEMORY  SIZE. 

F'TIME  -  DETERMINE  CPU  PROCESSING  TIME. 

SPRAY  -  INITIALIZE  AN  ARRAY  HI TH  A  CONSTANT. 

UNIFM1  -  GENERATE  RANDOM  NUMBER.. 

ZERO  —  ZERO  An  ARRAY. 

FIGURE  2-5.  SYSTEM  UTILITY  ROUTINES 

CONCAT  -  Call  CONCAT  (A,  N,  B,  M,  L) 

CONCAT  is  used  to  move  a  character  substring  of  arbitrary  length  and 
position  within  a  string.  A  is  the  string  to  be  replaced  and  N  is  the  initial 
character  of  A;  characters  are  numbered,  left  to  right,  1,  2,  ...;  B  is  the 
replacement  string  and  M  is  the  initial  character  of  B;  L  is  the  number  of 
characters  to  be  replaced.  This  call  causes  the  Nth  through  (N  +  L  -  l)th 
character  of  A  to  be  replaced  with  the  Mth  through  (M  +  L  -  l)th  character  of 
B. 

FCLOSE  -  Call  FCLOSE(U) 

FCLOSE  closes  a  file  and  releases  the  buffer  assigned  to  that  file. 
U  is  the  logical  file  number  of  the  file  to  be  closed. 
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MEMSIZ  -  Call  MEMSIZ(J) 


This  routine  provides  the  capability  of  obtaining  allocated  memory. 
J,  the  return  value  of  this  call,  is  the  number  of  1024-word  blocks  currently 
allocated  to  this  job. 

PTIME  -  Call  PTIME(A) 

This  routine  provides  the  means  of  obtaining  processor  time.  A,  a 
real  variable,  is  the  processor  time  in  hours. 

SPRAY  -  Call  SPRAY  (Z,  Al,  Nl,  ...  An,  Nn) 

SPRAY  will  place  the  value  Z  (real  or  integer  constant  or  variable) 
into  each  of  Nl  consecutive  locations  starting  at  the  first  location  in  array 
Al.  Argument  pairs  are  limited  to  the  maximum  number  of  continuation  cards. 
"Al"  may  be  a  real  or  integer  array,  but  Nl  must  be  an  integer  constant  or 
variable . 

UNIFM1  -  R=UNIFM1 (SEED) 

UNIFM1  is  a  FORTRAN-compatible ,  assembly-language  routine  for  calcu¬ 
lating  random  numbers  having  a  uniform  (rectangular)  distribution  on  the  unit 
interval.  The  starting  number  SEED  is  used  to  initialize  the  calculations  of 
the  random  number.  Subsequent  calls  use  the  previously  calculated  random 
number  in  place  of  SEED. 

ZERO  -  Call  ZERO (A  1 ,  Nl ,  ...,  An,  Nn) 

ZERO  will  place  a  zero  in  each  of  Nl  consecutive  locations  starting 
at  the  first  location  in  array  Al.  Argument  pairs  are  limited  only  by  the 
maximum  number  of  continuation  cards  permitted  by  the  FORTRAN  IV  compiler. 
"Al"  may  be  a  real  or  integer  array,  but  Nl  must  be  an  integer  constant  or 
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INTRODUCTION 

The  SGM  uses  FORTRAN  common  blocks  to  pass  values  between  subroutines. 
All  key  model  information  is  stored  in  these  commons  and  most  of  the  memory 
requirements  for  an  SGM  run  are  determined  by  the  size  of  the  common  arrays. 
As  shown  in  Figure  3-1,  the  associated  common  variables  and  arrays  are  grouped 
logically  into  twelve  labeled  common  blocks.  The  purposes  of  this  chapter  are 
to  describe  the  various  programming  conventions  followed  in  the  use  of  these 
commons,  to  describe  the  parameter  values  which  set  the  size  of  the  common 
arrays,  and  finally  to  define  each  common  variable  and  array. 

PROGRAMMING  CONVENTIONS 

The  following  paragraphs  describe  the  various  programming  conventions 
followed  in  the  use  of  labeled  commons  for  the  SGM. 

All  common  arrays  are  dimensioned  using  FORTRAN  parameter  values  to 
provide  flexibility  in  configuring  the  model  for  different  scenarios.  These 
parameters  are  described  in  detail  in  the  next  subsection. 

Storage  for  all  arrays  used  in  the  SGM  is  maintained  in  labeled  common 
blocks;  this  allows  the  user  to  determine  major  core  requirements  by  examining 
the  dimensions  of  the  arrays  in  these  twelve  common  blocks. 

A  variable  or  array  name  is  always  the  same  in  each  occurrence  of  a 
common  block.  A  common  block  appears  in  an  SGM  subroutine  only  if  some  vari¬ 
able  or  array  in  that  block  is  referenced  or  modified  by  that  subroutine. 
Figure  3-2  indicates  the  location  of  the  common  blocks  throughout  the  SGM. 
For  each  common  block  it  provides  a  list  of  those  SGM  routines  which  either 
reference  or  modify  a  variable  in  that  common  block.  A  routine  is  considered 
to  reference  a  variable  if  it  uses  that  variable  but  does  not  change  its  value 
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/ACSTATE/ 

COMMON 


/ALIASC/ 

COMMON 

/BITS/ 

COMMON 


/DEMAND/ 

COMMON 

/ INPUT/ 
COMMON 


/PARTS/ 

COMMON 


/RSEEO/ 

COMMON 

/STATS/ 

COMMON 


/TIME/ 

COMMON 


/WCBRK / 
COMMON 


/WC INPUT/ 
COMMON 

/WCMAINT/ 

COMMON 


-  AIRCRAFT  BIT-VECTORS. 

/ACSTATE/  LENGTH,  NACVC < MAXVEC ) ,  IFLVVC(MAXVEC) , 

MAINVC  <  MAXVEC ) >  NORSVC ( MAXVEC ) ,  LOSTVC < MAXVEC ) 


-  TABLES  FOR  PART-TYPE  SAMPLING. 

/ALIASC/  FRACT  <  MAXPRT ) ,  I AL I AS < MAXPRT ) ,  FPARTS 

-  BIT  MANIPULATION  TABLES. 

/BITS/  MASKO , MASK <  35 ) ,  MLEFTO , MSKLFT ( 36 ) , 

IZCOUT, I COUNT (63) 

-  MEAN  AND  VARIANCE  FOR  TOTAL  PART  DEMANDS. 
/DEMAND/  ACMEAN,  AC VAR,  NPERAC 


-  FLYING  SCENARIO  PARAMETERS. 

/INPUT/  INITUE,  NAC,  PATTRIT,  IRES,  RNMCM ,  INFPART , 
MAXFLY ( MAXCYC ) ,  INFMAN,  I  SCALE,  IAUGMNT 


-  PART  CHARACTERISTICS. 

/PARTS/  NPARTS,  IQPA ( MAXPRT ) ,  NBACKO ( MAXPRT ) , 

BRPRATE ( MAXPRT ) ,  DRPRATE ( MAXPRT ) ,  INI TSJ< MAXPRT > , 
RESUPP < MAXPRT ) ,  BNRTS ( MAXPRT ) ,  NBASE ( MAXPRT ) , 
NDEPOTI MAXPRT) 


-  SEED 
/RSEED/ 


FOR  RANDOM  NUMBER  GENERATOR. 
SEED 


-  CUMULATIVE  STATISTICS  FOR  SIMULATION  RESULTS. 
/STATS/  EXPECT ( MAX ST AT, MAXCYC, MAX DAY ) , 

NRESRV ,  I ZDAY , I TOTRES ( MAXDAY ) ,  LOSSTOT 


-  FLYING  CYCLE  TIMES  AND  SIMULATION  PARAMETERS. 
/TIME/  PREFLITE,  SORTLGTH,  WAITCYC,  TYMNITE, 

NSIM,  I SIM,  NUMDAY,  I DAY,  NCYCLES,  I CYCLE 

-  WORK  CENTER  BREAK  RATES. 

/WCBRK/  PACBRK,  PACGABT ,  F'BRKWC ( MAXWC ) ,  PWCPROD, 
PBRKSEQ ( 2, MAXWC ) ,  INDXWC < MAXWC ) 


-  WORK  CENTER  INPUTS. 

/WC INPUT/  NWC,  NCREWS ( MAXWC ) ,  SPATE ( MAXWC ) 

-  AIRCRAFT  WORK  CENTER  LISTS. 

/WCMAINT/  LISTRP(MXINWC, MAXWC) ,  INREPR(MAXWC) 

FIGURE  3-1.  SGM  COMMONS 
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MODIFYING-(M)  AND 
REFERENC I NG- <  R )  ROUTINES 


/ACSTATE/ 

/ALIASC/ 

/BITS/ 

/DEMAND/ 

/INPUT/ 

/PARTS/ 

/RSEED/ 

/STATS/ 
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FLYCYC 
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INITREP 

(M) 

N1VECT 
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TBITSL 

(R) 

TBITSR 

(R) 

UEUPDAT 
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ZBITSL 

(R) 

INITPRT 

( M  > 

MNOM 

(R) 

BLOCK  DATA 

(M) 

LB  ITS 

(R) 

MUPDATE 
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N1BITS 

(R) 

N1VECT 
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(R) 

INITPRT 

(M) 

NDMNDS 
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INIT 

( M  > 

INITREP 

(M) 

INITSCN 
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INITBO 
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INITPRT 
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INITREP 

(M) 
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( M  > 

INITBO 
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(M) 
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/TIME/ 


/WCBRK/ 


/WC INPUT/ 


/WCMAINT / 


FLYCYC 

(R) 

INIT 

(R) 

INITSCN 

<  M ) 

PRINTO 

<  R ) 

SIMULA 

(M) 

FLYCYC 

(R) 

INIT 

(R) 

INITREP 

(R) 

INITSCN 

(M) 

INITPRT 

<  M ) 

SIMULA 

(R) 

FLYCYC 

(R) 

INITREP 

(R) 

INITWC 

( M  > 

PRINTO 

(R) 

WCDIST 

<  R ) 

INITREP 

(M) 

MUPDATE 

(R) 

REPAIR 

<  M ) 

WCDIST 

(  M) 

(P)  -  A  ROUTINE  IS  CONSIDERED  TO  REFERENCE  A  COMMON  BLOCK  IF  IT 

USES  A  VARIABLE  IN  THAT  BLOCK »  BUT  DOES  NOT  CHANGE  ITS  VALUE. 

(M)  -  A  ROUTINE  IS  CONSIDERED  TO  MODIFY  A  COMMON  BLOCK  IF  IT 
CHANGES  THE  VALUE  OF  A  VARIABLE  IN  THAT  BLOCK. 

FIGURE  3-2.  SGM  COMMON  REFERENCES  (CONT'D) 

and  is  considered  to  modify  a  common  block  if  it  changes  the  value  of  a  vari¬ 
able  in  the  block. 

All  common  variables  are  of  type  integer  or  real  except  for  INFPART  and 
INFMAN  which  are  logical  variables.  The  type  of  these  other  common  variables 
is  determined  implicitly  by  the  name,  following  standard  FORTRAN  conventions. 
If  the  first  character  of  a  variable  name  begins  with  any  of  the  characters 
between  I  and  N,  it  is  an  integer  variable.  If  the  first  character  is  any 
other  alphabetic  character,  it  is  a  real  variable. 
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A  nonstandard  FORTRAN  technique  for  referencing  the  Oth  word  of  an  array 
is  used  in  several  common  arrays.  An  extra  word  is  placed  before  the  be¬ 
ginning  of  the  array.  The  use  of  ARRAY(O)  actually  references  this  extra  word 
before  ARRAY(l).  Thus,  the  array  is,  in  effect,  indexed  0,  1,  2,  .  .  .  in¬ 
stead  of  1,  2,  .  .  .  This  technique  may  not  work  with  other  FORTRAN 
compilers . 

PARAMETERS 

The  dimensions  of  all  SGM  common  arrays  are  controlled  with  FORTRAN 
parameter  values.  Figure  3-3  provides  a  list  and  description  of  all  SGM 
parameter  values.  These  parameter  values  allow  maximum  flexibility  in  con¬ 
figuring  the  SGM  to  handle  different  flying  scenarios.  For  example,  if  the 
user  desires  to  increase  the  number  of  work  center  types  the  SGM  can  handle, 
the  MAXWC  parameter  must  be  increased  in  all  routines  containing  this  param¬ 
eter.  This  change  can  be  made  using  a  single  command  with  the  system  text 
editor.  If  30  work  centers  were  needed  rather  than  the  current  maximum  of  23, 
the  user  would  just  change  all  occurrences  of  the  character  string  "MAXWC=25" 
to  "MAXWC=30"  throughout  the  SGM  source  code,  recompile  the  program,  and  run 
it.  These  parameters  also  allow  the  user  to  minimize  the  core  requirements 
for  any  particular  flying  scenario. 

The  only  limitation  on  increasing  these  various  parameter  values  is  that 
the  overall  system  core  limitations  on  programs  must  not  be  exceeded.  The  SGM 
as  currently  configured  requires  approximately  20K  words  of  core.  This  con¬ 
figuration  allows  a  maximum  of  108  aircraft  (MAXAC=108) ,  25  work  centers 
(MAXWC=25),  304  LRU  types  (MAXPRT=304) ,  and  30  flying  days  (MAXDAY=30). 

The  values  of  these  particular  parameters,  MAXWC,  MAXPRT,  and  MAXDAY, 
determine  the  major  computer  memory  requirements  of  the  model. 
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MAX  AC 


MAXIMUM  ALLOWABLE  UE-STRENGTH  (#  AIRCRAFT) 


MAXWC 

MAXBIT 

MAXPRT 

MAXVEC 

MAX DAY 
MAXCYC 
MAXSTAT 

LFLD 

NPERWRD 

MXINWC 

IFSCEN 

IFWC 

IFPRT 


-  MAXIMUM  ALLOWABLE  NUMBER  OF  WORK  CENTERS 

-  NUMBER  OF  BITS  IN  A  COMPUTER  WORD  ON  THIS  SYSTEM 

-  MAXIMUM  ALLOWABLE  NUMBER  OF  PART-TYPES 

-  MAXIMUM  ALLOWABLE  LENGTH  (IN  COMPUTER  WORDS)  OF 
AIRCRAFT  BIT- VECTORS  A  BIT- VECTOR  MUST  BE  AT 
LEAST  "MAX AC'1  BITS  LONG »  PLUS  AN  EXTRA  WORD 

TO  STORE  THE  AIRCRAFT  COUNT  FOR  THAT  VECTOR 
HENCE 7  MAXVEC  IS  A  FUNCTION  OF  MAX AC  AND  MAXBIT 

-  MAXIMUM  ALLOWABLE  NUMBER  OF  FLYING  DAYS 

-  MAXIMUM  ALLOWABLE  NUMBER  OF  FLYING  CYCLES  PER  DAY 

-  CURRENT  NUMBER  OF  STATISTICS  COLLECTED  PER 
FLYING  CYCLE  PER  DAY 

-  LENGTH  OF  BIT-FIELD  USED  IN  THE  WORK-CENTER 
REPAIR  LISTS  THIS  BIT-FIELD  MUST  BE  LARGE  ENOUGH 
TO  HOLD  ( MAXAC-1 ) »  THE  TAIL  NUMBER  OF  THE 

LAST  AIRCRAFT  THUS >  (2**LFLD>  MUST  BE  GREATER 

THAN  OR  EQUAL  TO  MAX AC 

-  NUMBER  OF  BIT-FIELDS  PER  COMPUTER  WORD  FOR  THESE 
WORK-CENTER  LISTSTHUS  NPERWRD  IS  A  FUNCTION 

OF  LFLD  AND  MAXBIT 

-  LENGTH  (IN  COMPUTER  WORDS)  OF  THE  WORK-CENTER  LIST 
MXINWC  IS  COMPUTED  SO  THAT  THE  MAXIMUM  ALLOWABLE 
NUMBER  OF  BIT  FIELDS  IN  A  WORK -CENTER  LIST  IS 
EQUAL  TO  MAXAC,  THE  MAXIMUM  NUMBER  OF  AIRCRAFT 

-  FILE  NUMBER  OF  SCENARIO  INPUT  FILE 

-  FILE  NUMBER  OF  WORK  CENTER  INPUT  FILE 

-  FILE  NUMBER  OF  SPARES  INPUT  FILE 


FIGURE  3-3.  SGM  PARAMETERS 


COMMON  DESCRIPTIONS 


This  section  provides  a  description  of  each  labeled  common  block  used  to 
pass  values  in  the  Sortie-Generation  Model.  Each  subsection  describes  the 
purpose  of  the  block  followed  by  a  definition  of  each  associated  variable  or 
array.  The  commons  are  presented  in  alphabetical  order  by  name. 

/ACSTATE/  -  Aircraft  Bit-Vectors 


This  block  contains  the  various  aircraft-status  bit-vectors.  These 
vectors  describe  the  state  of  the  simulation  at  any  point  in  time.  Each  bit 
in  these  vectors  represents  a  unique  aircraft,  and  an  aircraft  is  marked  as 
being  in  a  particular  state  by  setting  the  corresponding  bit  in  that  bit- 
vector  to  1. 


LENGTH:  length,  in  computer  words,  of  the  various  aircraft- 

status  bit-vectors.  LENGTH  is  equal  to  the  number  of  computer 

words  necessary  to  hold  a  number  of  bits  equal  to  NAC,  the  cur¬ 
rent  UE-strength  (or  number  of  aircraft). 

-  NACVC(I):  1=1,  2,  .  .  .,  LENGTH.  This  is  a  bit-vector  with  the 

first  NAC  bits  set  to  1,  where  NAC  is  the  current  number  of 

aircraft.  This  vector  represents  the  set  of  all  possible  air¬ 
craft  and  is  used  to  initialize  the  mission-capable  bit-vector, 
IFLYVC . 

IFLYVC(I):  1=1,  2,  .  .  .,  LENGTH.  Aircraft-status  bit-vector 

indicating  aircraft  currently  in  the  mission-capable  state.  A 

1-bit  indicates  the  corresponding  aircraft  is  mission-capable  and 
a  0-bit  indicates  not-mission-capable . 

MAINVC(I):  1=1,  2,  .  .  .,  LENGTH.  Aircraft-status  bit-vector 

indicating  aircraft  currently  undergoing  maintenance  in  at  least 
one  work  center.  A  1-bit  indicates  the  corresponding  aircraft  is 
in  maintenance. 

-  NORSVC(I):  1=1,  2,  .  .  .,  LENGTH.  Aircraft-status  bit-vector 

indicating  aircraft  currently  NORS,  i.e.,  waiting  for  some  part. 
A  1-bit  indicates  the  corresponding  aircraft  is  NORS. 


LOSTVC(I):  1=1,  2,  ,  LENGTH.  Aircraft-status  bit-vector 
indicating  aircraft  lost  due  to  attrition.  A  1-bit  indicates 
that  the  corresponding  aircraft  is  a  combat  loss. 


/ALIASC/  -  Tables  For  Part-Type  Samplin; 


-  i 

This  block  contains  the  tables  needed  for  the  Alias  method  of 

sampling  from  a  discrete  probability  distribution.  This  method  is  used  to 

determine  the  type  of  a  given  broken  part.  These  tables  are  initialized  by 

the  ALIAS  subroutine  and  remain  fixed  throughout  the  simulation. 

FRACT(I):  1=1,  2,  .  .  .,  MAXPRT.  This  array  is  used  initially 

to  load  the  demands-per-f lying-hour  of  the  Ith  part  type  in  the 
INITPRT  subroutine.  These  values  are  then  modified  by  the  MAKEPD 
subroutine  to  convert  the  demand  values  to  a  discrete  probability 
distribution.  Finally,  the  ALIAS  subroutine  converts  these  prob¬ 
abilities  to  fractional  cutoff  values  for  the  Alias  sampling 
method.  The  values  remain  fixed  for  the  remainder  of  the 
simulation. 

IALIAS(I):  1=1,  2,  .  .  .,  MAXPRT.  Table  of  aliases  needed  for 
the  Alias  sampling  method.  This  array  is  initialized  in  the 
ALIAS  subroutine  and  remains  fixed  thereafter. 

-  FPARTS:  floating-point  value  of  the  number  of  part-types  being 
modeled,  i.e.,  FPARTS=FLOAT(NPARTS) .  This  variable  is  used  to 
speed-up  the  sampling  procedure:  Rather  than  converting  NPARTS 
to  a  real  number  each  time  the  MNOM  subroutine  is  called,  the 
converted  number  is  stored  in  this  block  once  and  used  from  then 
on. 

/BITS/  -  Bit  Manipulation  Tables 

This  block  contains  three  sets  of  tables  used  for  accessing  bits  and 
bit  fields  within  a  computer  word.  Note  that  the  following  programming  tech¬ 
nique  is  used  in  each  of  these  tables:  An  extra  word  is  placed  before  the 
beginning  of  each  table.  This  extra  word  represents  the  Oth  indexed  word  in 
the  table.  Thus,  the  table  is  actually  indexed  0,  1,  2,  ...  This  technique 
of  referencing  the  Oth  word  of  an  array  is  not  standard  FORTRAN  and  may  not 
work  with  other  FORTRAN  compilers.  These  tables  remain  fixed  throughout  the 
simulation. 


-  MASK(I):  1=0,  1,  ...,35.  MASK  is  the  bit  accessing  table  used 
in  the  SGM.  The  bits  in  the  computer  word  are  numbered,  left  to 
right,  0,  1,  2,  ...,35,  and  MASK(I)  has  a  1-bit  in  the  Ith  posi¬ 
tion  and  zeroes  elsewhere.  This  table  is  used  to  mask-off  the 
Ith  bit  in  a  computer  word. 
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-  MASKLFT(I):  1=0,  1,  ...,36.  MSKLFT  is  used  to  mask-off  the 
leftmost  bits  in  a  computer  word.  The  first  (leftmost)  I  bits  of 
MSKLFT(I)  are  1-bits  and  the  remaining  bits  are  zero.  Thus,  for 
example,  MSKLFT (0)  would  be  all  Os  and  MSKLFT (36)  would  be  all 
Is . 

ICOUNT(I):  1=0,  1,  ...,63.  This  is  a  table  which  is  used  to 

count  the  number  of^l-bits  in  any  given  6-bit  field.  In  a  6-bit 
field,  there  are  2  =64  possible  bit  patterns  --  the  binary 

representations  of  the  integers  0,  1,  2,  ...,63.  ICOUNT(I) 

contains  the  number  of  1-bits  in  the  binary  representation  of  I, 
e.g.,  IC0UNT(3)=2.  This  table  is  used  in  counting  the  number  of 
1-bits  representing  aircraft  in  the  various  aircraft-status 
bit-vectors.  This  technique  is  much  faster  than  a  bit-by-bit 
count. 

/DEMAND/  -  Mean  And  Variance  For  Total  Part  Demands 


This  common  block  contains  the  various  statistics  describing  the 

random  variable  representing  the  number  of  part  demands  per  aircraft,  given 

that  the  aircraft  has  broken  upon  returning  from  a  sortie.  These  variables 

are  used  by  the  NDMNDS  function  to  generate  a  random  sample  of  the  total 

number  of  part  demands  during  a  sortie.  They  are  initialized  in  the  PSTAT 

subroutine  and  remain  fixed  throughout  the  simulation. 

ACMEAN:  expected  value  of  the  random  variable  described  above. 

ACVAR:  variance  of  total  part  demands  per  broken  aircraft. 

NPERAC:  Total  number  of  installed  parts  per  aircraft.  This 
variable  is  used  to  ensure  that  a  legitimate  sample  is  generated 
for  the  total  number  of  part  demands  during  a  sortie  period. 
NPERAC  is  equal  to  the  sum  of  the  QPAs  (quantity-per-aircraft)  of 
all  part  types  modeled  in  this  simulation  run. 

/INPUT/  -  Flying  Scenario  Parameters 

This  block  contains  the  various  user-specified  parameters  describing 

the  flying  scenario  to  be  simulated.  The  parameters  are  initially  set  in  the 

INITSCN  subroutine;  however,  some  of  these  values  are  reset  at  the  start  of 

each  flying  day  of  the  simulation. 

INITUE:  Initial  UE-strength  at  the  start  of  the  simulation. 

NAC :  Current  UE-strength.  If  reserves  are  used  only  as  attri¬ 
tion  fillers,  then  NAC  is  always  equal  to  INITUE;  however,  if 
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reserves  are  assigned  as  they  become  available,  then  NAC  may  be 
greater  than  INITUE. 


PATTRIT:  Probability  that  an  aircraft  does  not  return  from  a 
sortie  due  to  combat  attrition.  This  rate  may  be  different  for 
each  day  of  the  scenario. 

IRES:  The  number  of  aircraft  in  reserve  that  are  available  to 
augment  the  current  UE  of  the  scenario.  As  described  previously, 
the  user  may  specify  whether  these  reserves  are  committed  on  the 
day  they  become  available  or  are  to  be  used  only  as  attrition 
fillers  to  replace  combat  losses.  The  number  of  reserve  aircraft 
arriving  on  the  scene  may  be  specified  for  each  day  of  the 
scenario . 


RNMCM:  Proportion  of  the  possessed  aircraft  that  are  not- 
mission-capable-maintenance  at  the  start  of  the  flying  scenario. 
For  example,  if  the  user  specifies  an  initial  NMCM  rate  of  0.3 
with  a  UE  of  72,  the  SGM  will  begin  each  simulation  experiment 
with  22  aircraft  undergoing  maintenance.  The  remaining  50  air¬ 
craft  will  initially  be  either  mission-capable  or  waiting  for  a 
recoverable  spare  part. 

INFPART:  Logical  variable  indicating  whether  the  infinite  part 
assumption  holds.  If  INFPART  is  true  then  there  is  never  any 
shortage  of  parts;  hence,  no  NORS  aircraft. 

MAXFLY(I):  1=1,  2,...,  NCYCLES .  Maximum  number  of  aircraft  to 
be  scheduled  on  the  Ith  wave  of  this  flying  day.  These  values 
may  also  be  different  for  each  day  of  the  scenario. 

INFMAN:  Logical  variable  indicating  whether  infinite  manpower  is 
assumed  for  all  work  centers.  If  INFMAN  is  TRUE  then  the  number 
of  crews  or  servers  for  each  work  center  is  set  equal  to  the 
maximum  allowable  number  of  aircraft. 

ISCALE:  Parameter  to  set  the  maximum  vertical  scale  on  the 
sorties-per-day  plot  of  the  SGM  results.  For  example,  if  the 
user  wanted  plots  of  a  series  of  SGM  runs,  he  would  use  this 
parameter  to  ensure  that  all  the  plots  are  on  the  same  scale.  If 
0  is  input,  the  scale  is  determined  from  the  maximum  sorties  per 
day  that  occur  in  the  SGM  results. 

IAUGMNT :  A  variable,  0  or  1,  indicating  how  reserve  aircraft  are 
to  be  committed.  If  IAUGMNT=1,  all  reserve  aircraft  are  com¬ 
mitted  on  the  day  they  become  available;  if  IAUGMNT=0,  the  re¬ 
serves  are  used  only  as  attrition  fillers  to  replace  combat 
losses . 
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/PARTS/  -  Part  Characteristics 


This  block  contains  the  characteristics  of  the  various  part  types 
being  modeled. 

NPARTS:  number  of  part  types  being  modeled. 

-  IQPA(I):  1=1,  2,  ...,  NPARTS.  QPA  (Quantity-Per-Aircraft)  of  Ith 
type. 

-  NBACKO ( I ) :  1=1,  2,  ...,  NPARTS.  Number  of  backorders  of  Ith 

type.  NBACKO(I)  is  defined  as  the  number  of  parts  in  resupply 
minus  the  initial  stock  level.  Thus,  NBACKO(I)  may  be  negative. 

BRPRATE(I):  1=1,  2,  ...,  NPARTS.  Base  repair  rate  (in  parts  per 

day)  for  the  Ith  type.  The  base  repair  rate  is  defined  as  the 

inverse  of  the  average  base  repair  time. 

DRPRATE(I):  1=1,  2,  ...,  NPARTS.  Depot  resupply  rate  (in  parts 

per  day)  for  the  Ith  type.  The  depot  resupply  rate  is  defined  as 
the  inverse  of  the  average  depot  resupply  time. 

-  INITSJ ( I ) :  1=1,  2,...,  NPARTS.  Initial  stock  level  for  Ith 

type. 

-  RESUPP(I):  1  =  1,  2 ,... .NPARTS .  Expected  number  of  type-I  parts 

in  resupply  at  the  start  of  the  scenario.  It  is  used  as  the  mean 
of  a  Poisson  distribution  in  generating  a  starting  number  in 
resupply  for  each  simulation  replication. 

-  BNRTS(I):  1=1,  2,  ..., NPARTS.  Percentage  of  type-I  demands 

which  are  not  base  repairable.  A  demand  which  is  not  base  re¬ 
pairable  may  be  condemned  or  repaired  at  the  depot  but  in  either 
case  an  order  will  be  placed  for  depot  resupply. 

NBAGE(I):  1=1,  2,  ....NPARTS.  Number  of  type-I  parts  currently 

in  base  repair. 

NDEPOT(I):  1=1,  2,  ....NPARTS.  Number  of  type-I  parts  currently 

on-order  from  the  depot. 

/RSEED/  -  Seed  For  Random  Number  Generator 


This  block  contains  the  current  seed  for  the  random  number  generator 
used  by  this  simulation.  The  seed  is  updated  each  time  a  random  draw  is  made 
throughout  this  simulation.  The  seed  is  initialized  in  the  INITSCN  subroutine 
with  an  initial  user-specified  seed. 
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/STATS/  -  Cumulative  Statistics  For  Simulation  Results 

This  block  contains  the  various  statistics  produced  by  the  simula¬ 
tion.  These  statistics  consist  of  the  average  number  of  aircraft  in  the 
various  states  at  the  start  of  each  sortie  period  for  each  flying  day. 

EXPECT(I , J,K) :  Cumulative  statistics  array. 

NRESRV:  Current  number  of  aircraft  in  the  reserve  pool. 

-  IZDAY :  Defined  as  ITOTRES(O);  see  below. 

ITOTRES(I):  1=0, . . . , NUMDAY.  Cumulative  number  of  available  re¬ 

serve  aircraft  up  to  and  including  the  Ith  day.  The  0th  day 
represents  the  initial  number  of  reserve  aircraft.  This  array  is 
used  in  computing  on-the-scene  aircraft  for  sorties/aircraf t/day 
in  the  PRINTO  routine. 

/TIME/  -  Flying  Cycle  Times  and  Simulation  Parameters 

This  block  contains  the  various  times  describing  a  flying  cycle  and 

also  the  dimensions  of  the  simulations. 

PREFLITE:  The  minimal  required  time  (ir.  hours)  between  the 

landing  of  the  aircraft  and  takeoff  for  the  next  sortie,  provided 
that  no  corrective  maintenance  is  required.  It  includes  only  the 
time  required  to  taxi,  park,  chock,  shut  down,  refuel,  rearm, 
inspect,  and  launch. 

SORTLGTH:  Fixed  length  of  each  sortie,  in  hours. 

WAITCYC:  Number  of  hours  between  end  of  a  sortie  period  during 

the  day  and  the  start  of  the  minimal  recovery  period  for  the  next 
sortie . 

TYMNITE:  Number  of  hours  between  end  of  the  last  sortie  period 

of  the  day  and  the  start  of  the  minimal  recovery  period  for  the 
first  sortie  of  the  next  day. 

NSIM:  Number  of  simulation  replications  to  be  performed. 

ISIM:  Number  designating  current  simulation  replication.  ISIM=1, 
2,  . . . ,  NSIM. 

NUMDAY:  Number  of  flying  days  to  be  simulated. 

IDAY:  Number  designating  current  day  of  the  simulation.  IDAY=1, 
2  ,  .  .  .  ,  NUMDAY . 

NCYCLES:  Number  of  flying  cycles  for  the  current  flying  day  of 

the  simulation. 


ICYCLE:  Number  designating  the  current  flying  cycle.  ICYCLE=1, 
2 , . . . ,  NCYCLES . 


/WCINPUT/  -  Work  Center  Inputs 

This  common  block  contains  the  essential  information  from  the  main¬ 
tenance  manpower  input  file.  The  information  is  initialized  in  the  INITWC 
subroutine  and  is  never  modified  for  the  remainder  of  the  program.  It  pro¬ 
vides  the  basic  information  needed  to  simulate  aircraft  repair  in  the  various 
work  centers. 


-  NWC:  Number  of  work  centers  being  modeled.  The  work  centers  are 
numbered  1,  2,...,  NWC. 

NCREWS(I):  1=1,...,  NWC.  The  number  of  servers  or  crews  in  the 

Ith  work  center.  If  infinite  manpower  is  assumed,  then  NCREWS(I) 
is  initialized  to  MAXAC,  the  maximum  possible  number  of  aircraft. 

-  SRATE(I):  1=1,...,  NWC.  The  service  rate  (in  aircraft  per  hour) 
for  the  crews  in  the  Ith  work  center. 

/WCMAINT/  -  Aircraft  Work  Center  Lists 


This  block  contains  the  list  of  aircraft  currently  undergoing  main¬ 
tenance  in  each  work  center.  These  lists  are  zeroed-out  at  the  beginning  of 
each  simulation  replication  and  aircraft  are  added  and  deleted  from  the  lists 
as  they  break  and  are  repaired.  The  length  of  these  arrays  is  set  as  a  func¬ 
tion  of  the  parameter  values  for  LFLD,  MAXAC,  MAXBIT,  MAXWC,  NPERWRD,  and 
MXINWC.  This  function  is  described  in  the  definition  of  LISTRP  below. 

INREPR(J):  J=1 , . . . ,  NWC.  Number  of  aircraft  currently  under¬ 
going  maintenance  in  the  Jth  work  center.  Also  indicates  the 
number  of  aircraft  tail  numbers  contained  in  the  work  center 
list,  LISTRP( . , J) . 

LISTRP(I,J):  LISTRP(.,J)  is  a  list  of  aircraft  numbers  indicat¬ 
ing  those  aircraft  requiring  maintenance  in  the  Jth  work  center 
(J=l,  2,...,  NWC).  This  list  contains  exactly  INREPR(J)  aircraft 
numbers.  To  save  space,  these  lists  have  been  packed  into  bit- 
fields  "LFLD"  bits  wide;  hence,  if  "MAXBIT"  is  the  length  of  a 
computer  word  on  this  system,  then  there  are  (MAXBIT/LFLD)  bit- 
fields  stored  per  word.  The  aircraft  numbers  stored  in  these 
bit-fields  indicate  a  unique  bit  position  in  the  various 
aircraft-status  bit-vectors.  The  aircraft  are  numbered,  left- 
to-right,  0,  1,  2,...,  (MAXAC-1),  where  MAXAC  is  the  maximum 
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possible  number  of  aircraft.  To  get  the  Ith  aircraft  number  in  a 
work  center  list,  the  corresponding  bit  position  and  word  index 
must  be  computed. 

/WCBRK/  -  Work  Center  Break  Rates 


This  block  contains  the  various  break  probabilities  associated  with 
maintenance  and  work  center  repair.  These  probabilities  are  initialized  and 
remain  fixed  throughout  the  simulation. 

-  PACBRK:  Probability  that  an  aircraft  returning  from  a  sortie 
requires  unscheduled  maintenance  in  one  or  more  work  centers 
prior  to  further  flight. 

PACGABT :  Probability  that  an  aircraft  undergoes  some  failure 

immediately  before  takeoff,  requiring  unscheduled  maintenance 
which  renders  it  not-mission-capable .  This  rate  may  be  different 
for  each  day  of  the  scenario. 

-  PBRKWC(I):  1=1,...,  NWC.  Probability  that  an  aircraft  returning 
from  a  sortie  breaks  into  work  center  I.  This  array  is  a  direct 
input  from  the  maintenance  manpower  input  file. 

PWCPROD:  Product-formula  overall  work  center  break  rate.  This 

probability  is  computed  from  the  individual  work  center  break 
rates . 

-  PBRKSEQ( 1 , J) ;  Probability  that  an  aircraft  breaks  into  the  work 
center  indicated  by  "INDXWC(J)"  and  does  not  break  into  any  of 
the  work  centers  —  INDXWC(J+1),  INDXWC(J+2) , . . . ,  INDXWC(NWC), 
given  that  the  aircraft  has  uroken  into  at  least  one  of  the  work 
centers  —  INDXWC(J),  INDXWC ( J+l ) , . . . ,  INDXWC(NWC).  This  implies 
that  PBRKSEQ(1 ,NWC)  must  always  equal  1.0. 

PBRKSEQ(2 , J) :  Probability  that  an  aircraft  has  broken  into  the 
work  center  indicated  by  'INDXWC(J)',  given  that  the  aircraft  has 
broken  into  at  least  one  of  the  work  centers  indicated  by  -- 
INDXWC (J) ,  INDXWC (J+l) ,  ...,  INDXWC(NWC). 

INDXWC(J):  Indicates  the  index  of  the  work  center  with  the  Jth 

largest  break  probability.  Thus,  INDXWC(l)  indicates  the  work 
center  with  the  largest  break  probability,  and  INDXWC(NWC)  indi¬ 
cates  the  one  with  the  smallest. 
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4.  DATA  FILES 


INTRODUCTION 

The  Sortie-Generation  Model  (SGM)  uses  a  variety  of  mass  storage  files 
for  input  data,  temporary  parameter  storage,  and  output  results.  This  chapter 
provides  a  general  overview  of  the  data  flows  in  the  SGM,  followed  by  a  brief 
description  of  each  file  used  or  generated  by  the  SGM. 

DATA  FLOWS 

The  mass  storage  files  used  by  the  SGM  are  divided  into  three  categories: 
input  files,  temporary  scratch  files,  and  output  files.  A  flow  chart  of  the 
various  data  files  within  the  SGM  is  provided  in  Figure  4-1. 

The  SGM  input  files  are  produced  by  three  different  programs.  The 
scenario  input  parameters  are  produced  by  the  Set-Parameter  Program  in  which 
the  user  interactively  specifies  the  desired  values  for  the  simulation.  The 
definitions  of  these  scenario  parameters  are  described  in  Volume  II,  SGh 
User's  Guide.  The  work  center  and  spares  inputs  are  produced  by  the  SGM 
Maintenance  and  Spares  Subsystems,  with  detailed  descriptions  of  these  inputs 
provided  in  Volumes  V  and  VI,  respectively. 

The  SGM  also  uses  two  temporary  files  to  conserve  memory  and  provide 
sortie  results  to  the  Plot  Program.  The  Varying  Scenario  Parameters  File 
(File-03)  is  used  to  store  the  scenario  parameters  that  are  allowed  to  vary 
for  each  day  of  the  flying  scenario  (e.g.,  attrition  rate,  available 
reserves).  This  file  is  initialized  by  the  SGM  at  the  start  of  the  simula¬ 
tion,  and  the  entire  file  is  read  for  each  replication  of  the  simulation. 

The  Plot  Data  File  (File-07)  is  the  other  temporary  file  produced  by  the 
SGM;  sortie  results  are  written  to  this  file  to  be  used  as  input  to  the  Plot 
Program. 
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FIGURE  4-1.  SGM  DATA  FILES 


All  output  results  are  written  to  the  File-06,  the  standard  output  print 
file  for  this  computer  system.  The  SGM  prints  a  scenario  summary  and  sortie 
profile,  and  the  Plot  Program  prints  two  graphs  of  sortie  results.  Descrip¬ 
tions  of  these  outputs  are  provided  in  Volume  II,  SGM  User's  Guide. 

FILE  DESCRIPTIONS 


This  section  provides  a  brief  description  of  each  data  file  used  or 
created  by  the  SGM.  Each  file  description  includes  the  following  information: 

-  Purpose  of  the  file 

-  File  format  (e.g.,  sequential  or  random,  permanent  or  temporary,  media 
type,  and  approximate  length).  On  this  computer  system,  files  are 
classified  according  to  media  type  as  shown  in  Figure  4-2.  Also, 
files  are  measured  in  units  of  llinks ,  where  1  llink  is  approximately 
320  computer  words  in  length. 

-  Source  of  data  file  (i.e.,  routine  or  program  which  created  this  file) 

-  File  destination  (i.e.,  routine  or  program  which  reads  information 
from  this  file) 

-  Updating  instructions  for  file  maintenance  as  appropriate 


Media 

Code 

0 

1 

2 

3 

5 

6 


File  Type 

Print-line  image  with  no  slew  (BCD) 

Binary  record  (e.g.,  FORTRAN  binary  record,  COMDK  etc.) 
Hollerith  card  image  (BCD) 

Print-line  image  (BCD) 

TSS  ASCII  file  format 
ASCII  Standard  System  Format 


FIGURE  4-2.  SERIES  6000  FORTRAN  MEDIA  CODES 
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The  SGM  currently  uses  seven  data  files  and  the  descriptions  are  listed 
according  to  the  file  unit  number  (note  that  unit  -05  is  not  assigned  to  any 


file) . 


Scenario  Parameters  (FILE-01) 


Purpose:  Contains  the  user-specified  scenario  parameters  (e.g., 

attrition  rates,  sortie  length)  for  an  SGM  run.  Media  code  0  was 
chosen  for  this  file  to  allow  the  file  to  be  read  by  a  program 
operating  in  either  batch  or  time-sharing  mode.  When  the  SGM  is 
run  in  batch  mode,  a  SELECTD  control  card  must  be  used  to  request 
this  file.  This  ensures  that  subsequent  Set-Parameter  runs  do 
not  alter  this  particular  file  before  it  is  actually  used  in  this 
SGM  run. 

Format:  Sequential  linked  permanent  file,  media  0,  1  llink  in 

length. 

Source:  An  output  file  of  the  interactive  Set-Parameter  Program. 

-  Destination:  Read  by  the  SGM  routine  INITSCN. 

-  Updating:  New  scenario  file  is  usually  created  for  each  SGM  run. 
Work  Center  Data  (FILE-02) 


-  Purpose :  Contains  the  work  center  data  describing  the  mainte¬ 
nance  at  some  specified  base.  Detailed  information  concerning 
the  derivation  and  updating  of  this  file  is  contained  in  Volume 
V,  Maintenance  Subsystem. 

-  Format :  Sequential  linked  permanent  file,  media  3,  1  llink  in 

length. 

-  Source :  Produced  by  SGM  Maintenance  Subsystem. 

-  Destination:  Read  by  the  SGM  routine  WCREAD. 

Updating :  Maintenance  manpower  files  are  generated  for  each  base 
to  be  modeled.  The  files  must  be  updated  as  new  maintenance 
information  is  received  from  the  appropriate  base. 

Varying  Scenario  Parameters  (FILE-03) 


-  Purpose :  Temporary  file  created  to  store  the  scenario  parameters 
that  are  allowed  to  vary  on  a  daily  basis  in  the  simulation.  All 
of  these  data  are  also  contained  in  the  Scenario  Parameter  File 
(File-01);  however,  the  information  has  been  converted  to  binary 
format  on  the  scratch  file  to  save  processing  time  in  loading  the 
scenario  parameter  values  at  the  start  of  each  simulation  day. 
This  approach  eliminates  the  need  for  any  arrays  to  store  the 
parameter  values  for  each  day. 


4-4 


-  Format:  Linked  temporary  file,  media  1,  2  llinks  in  length. 

-  Source:  Initialized  by  the  SGM  routine  INITSCN. 

-  Destination:  Read  by  the  SGM  routine  SIMULA. 

-  Updating:  New  scratch  file  automatically  created  and  released 
with  each  SGM  run. 

Spares  Data  (FILE-04) 


Purpose :  Contains  the  spare  parts  data  for  a  specified  base, 

aircraft  type,  and  availability  level.  For  detailed  information 
on  spares  data,  see  Volume  VI,  Spares  Subsystem. 

-  Format:  Sequential  linked  permanent  file,  media  1,  about  10 

llinks  in  length  (varies  by  base). 

-  Source :  Produced  by  the  SGM  Spares  Subsystem. 

-  Destination:  Read  by  the  SGM  routine  INITPRT. 

-  Updating:  Must  be  updated  periodically  to  reflect  changes  in  the 
spares  data. 

Standard  System  Output  File  (FILE-06) 

-  Purpose :  Standard  system  output  file  to  which  all  SGM  results, 
graphs,  and  error  messages  are  written. 

Format:  That  for  the  standard  system  output. 

Source :  The  SGM  PRINTO  routine  and  the  Plot  Program  generate  the 
sortie  results  and  graphs  which  are  sent  to  this  file.  Many 
other  SGM  routines  will  send  error  messages  to  this  file  if  an 
error  is  detected. 

Destination:  Output  is  sent  to  a  user-specified  printer  which 

may  be  either  a  time  sharing  terminal  or  a  batch  output  device. 

Sortie  Plot  Data  (FILE-07) 


-  Purpose :  Contains  the  sorties  per  aircraft  and  sorties  per  day 
results  of  an  SGM  run. 

-  Format:  Linked  temporary  file,  media  1,  approximately  1  llink  in 
length. 

-  Source:  An  output  of  the  SGM  Routine  PRINTO. 

-  Destination:  Provides  the  inputs  for  the  Plot  Program. 

-  Updating :  A  temporary  file  which  is  automatically  created  and 
released  for  each  SGM  run. 
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Default  Scenario  Parameters  (FILE-08) 


-  Purpose:  Contains  default  scenario  parameter  values  for  a  speci¬ 
fied  aircraft  type.  These  values  are  used  to  initialize  the 
scenario  for  a  Set-Parameter  run.  This  default  file  allows  the 
user  to  generate  new  scenarios  from  the  base  scenario  with  very 
little  work. 

-  Format:  Sequential  linked  permanent  file,  media  5,  1  llink  in 
length. 

Source :  Created  manually  by  the  user  using  the  system  text 

editor. 

Destination:  Input  to  the  interactive  Set-Parameter  Program. 

Updating:  The  user  may  update  this  file  as  often  as  desired  to 

reflect  new  base  scenarios. 
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5.  ERROR  MESSAGES 


INTRODUCTION 

la  addition  to  the  various  computer  system  error  checks,  numerous  error 
checks  have  been  programmed  into  the  Sortie-Generation  Model  (SGM) .  This 
chapter  provides  an  explanation  of  the  error  messages  that  may  result  from 
these  SGM  checks.  The  extensive  error  detection  capabilities  of  the  Honeyvell 
Series  6000  FORTRAN  and  resulting  error  messages  are  described  in  the 
Honeywell  FORTRAN  manuals  referenced  in  Appendix  A  of  this  manual. 

Figure  5-1  provides  a  list  of  all  possible  SGM  error  messages.  The  error 
checks  resulting  in  these  messages  have  been  designed  to  detect  many  of  the 


********  INITBO  ERROR  -  TOO  MANY  PARTS  IN  RESUPPLY 

********  INITPRT  ERROR  -  INVALID  PART  CHARACTERISTIC 

«***$**$  INITPRT  ERROR  -  TOO  MANY  LRU  TYPES 

********  INITWC  ERROR  -  LFLD  PARAMETER  TOO  SMALL 

«*$**$*$  I POISSON  ERROR  -  NEGATIVE  MEAN 

********  LB ITS  ERROR  -  TOO  FEW  1-BITS  TO  MASK 

********  TBITSL  ERROR  -  TOO  FEW  1-BITS  TO  TRANSFER 

********  TBITSR  ERROR  -  TOO  FEW  1-BITS  TO  TRANSFER 

********  IJEUPDAT  ERROR  -  UE  OVERFLOW 

********  WCDIST  ERROR  -  SEQUENTIAL  SAMPLING  ERROR 

********  WCDIST  ERROR  -  INCONSISTENT  BROKEN  AIRCRAFT 

********  WCREAD  ERROR  -  TOO  MANY  WORK-CENTERS 

********  WCREAD  ERROR  -  INVALID  WORK  CENTER  DATA 

********  XNORM' ERROR  -  NEGATIVE  STANDARD  DEVIATION 

********  ZBITSL  ERROR  -  NOT  ENOUGH  IS  TO  ZERO 


FIGURE  5-1.  SGM  ERROR  MESSAGES 
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typical  errors  resulting  from  improperly  formatted  input  files,  inconsistent 
flying  scenarios,  or  newly  introduced  routines  which  may  not  be  completely 
bug-free.  In  many  instances  a  tradeoff  has  been  made  in  increasing  the  reli¬ 
ability  of  the  SGM  at  the  expense  of  computational  speed;  however,  these 
checks  have  proved  invaluable  in  detecting  subtle  logical  design  errors  in  the 
development  of  the  model. 

These  SGM  error  checks  have  been  designed  to  allow  continued  execution. 
An  error  message  is  printed,  a  reasonable  patch  is  made,  and  control  is  re¬ 
turned  to  the  calling  routine.  The  purpose  of  this  design  decision  to  con¬ 
tinue  execution  of  the  model,  even  though  the  results  may  no  longer  be  valid, 
was  to  provide  as  much  debug  information  as  possible  from  each  SGM  run.  Thus, 
this  was  with  the  hope  that  any  additional  independent  errors  might  also  be 
detected  in  the  same  SGM  run.  However,  some  errors  may  propagate  further 
errors,  leading  to  numerous  error  messages  and  even  fatal  system  errors.  This 
design  decision  also  requires  the  user  to  check  each  SGM  run  carefully  to 
ensure  that  no  error  messages  have  been  printed,  even  though  the  run  may  have 
terminated  successfully  with  reasonable  results.  All  SGM  error  messages  begin 
with  the  characters  "$$$$$$$$",  and  the  messages  will  always  appear  before  the 
SGM  sortie  profile.  Hence,  this  area  should  be  carefully  scanned  after  each 
run . 

STANDARD  FORMAT 

All  SGM  error  messages  follow  the  standard  format  shown  in  Figure  5-2. 
The  beginning  of  each  message  is  double-spaced  from  the  line  preceding  it,  and 
lines  containing  any  error  message  always  begin  with  the  characters 
"$$$$$:?$$".  The  first  words  in  each  message  identify  the  model  routine  which 
detected  the  error  and  generated  the  message.  For  example,  in  Figure  5-2,  the 
sample  message  indicates  that  an  error  was  detected  in  the  WCREAD  routine. 
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The  remainder  of  the  first  line  provides  a  short  description  of  the  particular 
error  detected.  Again,  in  our  example,  the  description,  "TOO  MANY  WORK- 
CENTERS  IN  THE  INPUT  FILE",  indicates  that  the  work  center  input  file  contains 
too  many  work  center  types  for  the  current  SGM  configuration. 


STANDARD  SGM  ERROR  FORMAT 

$$$$$$$$  "Routine  name"  ERROR  -  "error  description" 
$$$$$$$$  "additional  variable  values" 


EXAMPLE 

$$$$$$$$  WCREAD  ERROR  -  TOO  MANY  WORK-CENTERS  IN  THE  INPUT  FILE 
$$$$$$$$  ONLY  THE  FIRST  25  WORK-CENTERS  WERE  USED 

$$$$$$$$  INCREASE  -MAXWC-  PARAMETER  IF  YOU  WANT  MORE  WC-S 

FIGURE  5-2.  STANDARD  ERROR  MESSAGE  FORMAT 


The  remaining  lines  of  the  error  message  provide  values  of  various  sub¬ 
routine  variables  related  to  the  source  of  the  error.  The  error  messages  have 
been  designed  to  print  the  values  of  all  variables  which  may  aid  in  determin¬ 
ing  either  the  exact  cause  of  the  error  or  the  needed  fix.  The  Figure  5-2 
example  provides  the  current  value  of  the  MAXWC  parameter  which  sets  the  size 
of  the  various  work  center  arrays.  This  parameter  must  be  increased  to  handle 
additional  work  centers. 

MESSAGE  DESCRIPTIONS 

This  section  provides  a  detailed  description  of  each  SGM  error  message. 
Each  subsection  provides  a  description  of  the  error  which  caused  the  message, 
the  possible  causes  of  the  error,  suggested  actions  to  correct  the  problem, 
and  an  explanation  of  the  variable  values  printed  with  the  message  to  aid  in 
the  debugging  process. 
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INITBO  Error  -  Too  Many  Parts  in  Resupply 

This  message  indicates  that  a  recoverable  part  type  has  more  back¬ 
orders  (NBACKO(K))  at  the  beginning  of  a  simulation  replication  than  there  are 
aircraft  on-the-scene  (NAC).  The  maximum  number  of  allowable  backorders  is 
equal  to  the  UE-aircraft  strength  times  the  QPA  (quantity-per-aircraft)  for 
that  part-type.  The  characteristics  of  this  part  type  are  printed  with  the 
error  message;  the  number  of  backorders  is  truncated  at  the  maximum  allowable, 
and  execution  of  the  simulations  continues.  The  results  are  no  longer  valid, 
but  continued  execution  may  provide  more  debug  information. 

This  error  is  extremely  unlikely,  but  might  occur  if  the  spares  file 
is  incorrect,  and  an  impossible  value  has  been  loaded  for  this  part's  initial 
resupply  (RESUPP(K)).  Another  possibility  is  that  an  extremely  low  value  for 
the  number  of  aircraft  (NAC)  is  being  used.  The  user  should  examine  the 
spares  file  carefully  to  ensure  that  it  has  no  impossible  values  and  also 
check  to  ensure  that  the  flying  scenario  being  used  is  consistent  with  this 
particular  spares  file. 

INITPRT  -  Invalid  Part  Characteristic 

This  message  indicates  that  some  part  in  the  spares  input  file  has 
one  or  more  invalid  characteristics  (e.g.,  a  negative  demand  rate  or  initial 
stock  level).  This  problem  could  be  caused  by  a  bug  in  the  SPARES  subsystem 
or  by  a  spares-input  file  with  an  improper  format.  The  NSN  of  this  part  along 
with  its  characteristics  is  printed  with  the  error  message  to  aid  in  the  debug 
process . 

This  error  is  not  fatal;  execution  of  the  simulation  will  continue. 
However,  the  part  with  the  invalid  characteristics  will  not  be  included  in  the 
simulation  run. 
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INITPRT  Error  -  Too  Manv  LRU  Types 


This  message  indicates  that  the  spares  input  file  contains  too  many 
part  types;  the  current  size  of  the  parameter,  MAXPRT,  which  sets  the  size  of 
the  various  part  arrays,  is  too  small.  However,  the  model  will  load  the  first 
MAXPRT  part  types  and  perform  the  simulation  run  with  just  these  types.  This 
may  still  give  valid  results  since  the  parts  file  is  sorted  in  order  of  parts 
most  likely  to  cause  NORS  aircraft.  Hence,  if  only  the  last  few  part  types 
were  not  loaded,  the  SGM's  estimate  of  sortie-generation  capability  would 
probably  not  be  affected. 

To  obtain  a  run  with  all  the  parts  in  the  input  file,  the  user 
should  determine  the  number  currently  in  the  file,  and  reset  the  MAXPRT  param¬ 
eter  accordingly.  The  current  value  of  MAXPRT  is  printed  with  this  error 
message. 

INITWC  -  LFLD  Parameter  Too  Small 

This  message  indicates  that  the  "LFLD"  parameter  has  been  set  too 
small.  This  parameter  defines  the  width  of  the  bit-field  used  for  storing 
aircraft  tail  numbers.  Lists  of  aircraft  tail  numbers  are  used  to  indicate 
those  aircraft  which  have  broken  into  the  various  work  centers.  Thus,  the 
length  of  the  bit-field  must  be  able  to  store  the  largest  possible  aircraft 
tail  number.  The  aircraft  are  numbered  0,  1,  2,...,  MAXAC-1  where  MAXAC  is 
the  parameter  indicating  the  maximum  possible  number  of  aircraft.  LFLD  and 
MAXAC  must  be  consistent,  and  the  formula  to  ensure  this  consistency  is  given 
by  MAXAC  <  The  current  values  of  LFLD  and  MAXAC  are  printed  with  the 
message.  The  simulation  does  not  terminate;  however,  the  results  are 
unre  L iab le  . 
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IPOISSON  Error  -  Negative  Mean 

This  message  indicates  that  a  negative  mean  has  been  passed  to  the 
IPOISSON  routine.  The  value  of  the  mean  for  a  Poisson  random  variable  must  be 
a  non-negative  number.  The  value  of  this  input  mean,  RMEAN,  is  also  printed 
with  the  error  message.  The  return  value  is  set  to  zero  and  execution  of  the 
simulation  continues;  this  is  not  a  fatal  error. 

LBITS  Error  -  Too  Few  1-Bits  to  Mask 

This  message  indicates  that  the  specified  number  of  1-bits  to  mask 
(NBITS)  is  more  than  the  number  (IFOUND)  actually  contained  in  the  given  input 
word;  thus,  exactly  NEXTRA  1-bits  were  not  masked  as  requested.  This  indi¬ 
cates  that  some  subroutine  assumes  there  are  more  1-bits  in  the  input  word 
than  there  actually  are.  The  values  of  all  three  pertinent  variables,  NBITS, 
IFOUND,  and  NEXTRA  are  printed  with  the  error  message  to  aid  in  the  debugging 
process.  This  error  is  not  fatal;  the  subroutine  will  mask  all  the  1-bits  it 
found;  thus  the  output  word  will  just  be  a  copy  of  the  input  word.  However, 
the  results  of  the  simulation  are  no  longer  reliable. 

TBITSL  Error  -  Too  Few  1-Bits  to  Transfer 

This  message  indicates  that  the  specified  number  of  1-bits  to  trans¬ 
fer  (NONES)  is  more  than  actually  contained  in  the  bit-vector  from  which  the 
transfer  is  to  be  made  ( I FROM ( 1 ) )  ;  thus,  exactly  NLEFT  1-bits  have  not  been 
transferred  as  requested.  This  message  indicates  that  some  subroutine  assumes 
there  are  more  1-bits  in  the  bit-vector  than  there  actually  are.  The  values  of 
all  three  pertinent  variables,  NONES,  IFROM(l),  and  NLEFT  are  printed  with 
this  error  message  to  aid  in  the  debugging  process.  This  error  is  not 
fatal  --  the  subroutine  will  transfer  all  the  l's  that  are  there,  zero-out  the 
IFROM  vector,  and  continue  execution.  The  results  of  the  simulation  are  no 
longer  reliable;  however,  continued  execution  may  provide  additional  debug 
information . 
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TBITSR  Error  -  Too  Few  1-Bits  to  Transfer 

This  message  indicates  that  the  specified  number  of  1-bits  to  trans¬ 
fer  (NONES)  is  more  than  actually  contained  in  the  bit-vector  from  which  the 
transfer  is  to  be  made  (IFROM(l));  thus,  exactly  NLEFT  1-bits  have  not  been 
transferred  as  requested.  This  indicates  that  some  subroutine  thinks  there 
are  more  1-bits  in  the  bit-vector  than  there  actually  are.  The  values  of  all 
three  pertinent  variables,  NONES,  IFROM(l),  and  NLEFT  are  printed  with  this 
error  message  to  aid  in  the  debugging  process.  This  error  is  not  fatal;  the 
subroutine  will  transfer  all  the  l's  that  are  there,  zero-out  the  IFROM 
vector,  and  continue  execution.  The  results  of  the  simulation  are  no  longer 
reliable;  however,  continued  execution  may  provide  additional  debug 
information. 

UEUPDAT  Error  -  UE  Overflow 

This  message  indicates  that  the  desired  UE  strength  (NAC)  is  larger 
than  the  maximum  permissible  number  of  aircraft  (MAXAC).  The  current  values 
of  these  two  parameters  are  printed  with  the  error  message  and  also  a  note 
explaining  that  the  subroutine  will  truncate  NAC  to  the  current  allowable 
maximum,  MAXAC,  and  execution  of  the  simulation  continues.  The  results  are  no 
longer  valid,  but  more  debug  information  may  be  provided  by  further  execution 
of  the  program. 

'’’his  error  typically  occurs  in  one  of  the  following  ways.  Either 
the  initial  UE  strength  is  too  large  or  enough  reserve  aircraft  are  augmented 
during  the  scenario  to  cause  the  UE  to  increase  beyond  MAXAC.  In  both  cases, 
the  user  should  increase  the  MAXAC  parameter  in  all  routines  using  that  param¬ 
eter  to  a  value  large  enough  to  handle  the  desired  UE. 
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WCDIST  Error  -  Sequential  Sampling  Error 

This  message  indicates  that  the  sequential  sampling  process  for 
determining  the  work  centers  an  aircraft  has  broken  into  did  not  terminate 
properly.  One  possible  cause  of  this  error  is  that  the  last  entry  in  the 
sequential  sampling  array  is  less  than  1.0;  hence,  either  a  bug  has  been 
introduced  into  the  initializing  routine  for  this  array  (WCPROB)  or  the  entry 
has  been  written  over  during  the  simulation.  Another  possibility  is  that  the 
random  number  generator  has  given  a  number  greater  than  1.0.  The  value  of 
this  last  sequential  sampling  entry,  PBRKSEQ(1 ,NWC)  and  also  the  value  of  the 
random  draw,  RDRAW,  is  printed  with  this  message  to  aid  in  determining  the 
cause  of  the  error.  The  simulation  results  are  no  longer  valid;  however, 
execution  of  the  program  will  continue. 

WCDIST  -  Inconsistent  Broken  Aircraft 

This  message  indicates  that  the  specified  number  of  aircraft  to 
break  into  work  centers  exceeds  the  actual  number  of  aircraft  contained  in  the 
specified  input  bit-vector;  i.e.,  either  the  variable  NBRKAC  >IACVC(1),  or  the 
value  of  IACVC(l)  is  no  longer  consistent  with  the  number  of  1-bits  contained 
in  the  bit-vector  IACVC.  The  values  of  NBRKAC,  IACVC(l),  and  the  number  of 
aircraft  actually  broken  into  work  centers,  NSELEC,  are  printed  with  this 
error  message.  Execution  of  the  simulation  continues;  however,  the  results 
should  no  longer  be  considered  valid. 

WCREAD  Error  -  Too  Many  Work  Centers 

This  message  indicates  that  the  maintenance  manpower  input  file 
contains  too  many  work  centers;  the  current  size  of  the  work  center  arrays, 
MAXVC,  is  too  small.  However,  the  model  will  load  the  first  MAXWC  work 
centers  in  the  file  and  perform  a  simulation  run  with  just  these  work  centers. 
To  obtain  a  run  with  all  the  work  centers  in  the  input  file,  the  user  should 
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determine  the  number  of  work  centers  currently  in  the  file,  and  reset  the 
MAXWC  parameter  in  all  routines  to  this  value. 

WCREAD  Error  -  Invalid  Work  Center  Data 

This  message  indicates  that  a  work  center  in  the  maintenance  input 
file  has  one  or  more  invalid  characteristics,  e.g.,  a  negative  service  rate  or 
break  rate  greater  than  1.0.  This  problem  could  be  caused  by  a  bug  in  the 
Maintenance  Manpower  Subsystem  or  an  input  file  with  improper  format.  The 
AFSC  of  this  problem  work  center  along  with  its  characteristics  is  printed 
with  the  error  message  to  aid  in  the  debugging  process.  This  error  is  not 
fatal;  execution  of  the  simulation  will  continue.  However,  this  problem  work 
center  will  be  eliminated  from  the  simulation  run. 

XNORM  Error  -  Negative  Standard  Deviation 

This  message  indicates  that  a  negative  standard  deviation  has  been 
passed  to  the  XNORM  routine.  The  value  of  the  standard  deviation  must  always 
be  non-negative.  The  value  of  this  input  standard  deviation,  STDEV,  is  also 
printed  with  this  error  message.  The  return  value  is  set  to  zero  and  execu¬ 
tion  of  the  simulation  continues.  The  simulation  results  are  no  longer  reli¬ 
able;  however,  continued  execution  may  provide  additional  debug  information. 

ZBITSL  Error  -  Not  Enough  1's  to  Zero 

Indicates  that  the  specified  number  of  1-bits  to  zero-out  (NONES)  is 
greater  than  the  number  of  1-bits  indicated  by  the  first  word  (IARRAY(l))  of 
the  input  bit-vector;  thus,  exactly  NLEFT  1-bits  have  not  been  zeroed  out  as 
requested.  This  message  indicates  that  some  subroutine  thinks  there  are  more 
1-bits  in  the  bit-vector  than  there  actually  are.  The  values  of  all  three  of 
the  pertinent  variables,  NONES,  IARRAY(l),  and  NLEFT  are  printed.  This  sub¬ 
routine  will  zero-out  all  the  1-bits  in  the  vector  and  return  control  to  the 
calling  subroutine;  this  error  does  not  terminate  the  simulation,  but  the 
results  are  no  longer  valid. 
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6.  RUN  JOB  CONTROL  LANGUAGE  (JCL) 


INTRODUCTION 

The  JCL  files  for  the  SGM  are  of  two  types,  an  input  deck  of  control  card 
images,  or  a  series  of  system  level  commands.  These  correspond  to  either 
submitting  a  batch  job,  or  executing  a  time-sharing  run,  respectively.  In 
both  cases,  the  JCL  files  must  be  run  via  the  LMI  STARS  SUBMIT  Subsystem,  an 
interactive  program  for  submitting  batch  or  time-sharing  runs  on  System  C,  the 
current  computer  environment  for  the  SGM.  This  SUBMIT  Subsystem  is  described 
in  the  LMI  STARS  User's  Guide  referenced  in  Appendix  A  of  this  manual. 
TIME-SHARING 

Two  time-sharing  JCL  files  are  used  with  the  SGM:  a  command  file  for 
running  the  Set-Parameter  Program  to  specify  the  scenario  parameters  for  a 
simulation  run  and  another  command  file  for  submitting  an  interactive  SGM  run. 
Figures  6-1  and  6-2  provide  listings  of  these  run  command  files.  Line-by-line 
explanations  are  provided  below.  Detailed  information  about  time-sharing 
commands  is  provided  in  the  Honeywell  time-sharing  manuals  referenced  in 
Appendix  A. 

Set-Parameters  JCL  File 

This  section  provides  a  brief  explanation  of  each  line  of  the  JCL 
file  to  set  the  scenario  parameters  for  an  SGM  run.  The  numbers  correspond  to 
those  shown  in  Figure  6-1. 

0  REMO  CLEARFILES 

0  TEMP  01 

(D  GET  OS 29 /  N232D / SGM/  ZD .  8<  AC  —  TYPE  -  " 08 "  - 

SRUNY  0329/ N232D/ SGM/ HZ DATA, R 
PERM  1  ■'  '1329  'M232D/  SGM  /  F'ARAMS 
(0  REMO  PARAMS: HZ DATA?  OS 

FIGURE  6-1.  SCENARIO  SET -PARAMETERS  RUN 


Explanation 

1  -  Remove  all  files  from  user's  available  file  table  (AFT). 

2  -  Create  a  temporary  file-01  in  which  scenario  parameters  will  be 

written. 

3  -  Attach  default  scenario  parameters  for  the  specified  aircraft 

type  as  file-08. 

4  -  Execute  the  previously  compiled  and  loaded  FORTRAN  program  which 

allows  the  user  to  specify  interactively  the  scenario  param¬ 
eters  . 

5  -  Copy  the  temporary  file-01  containing  the  new  scenario  param¬ 

eters  to  the  permanent  file,  PARAMS. 

6  -  Remove  all  accessed  files  from  the  user's  AFT. 

SGM  Time-Sharing  Run 

This  section  provides  a  brief  description  of  each  line  of  the  JCL 
file  for  performing  an  SGM  time-sharing  run.  The  numbers  correspond  to  the 
line  numbers  in  Figure  6-2. 


©REMO  CLEARFILES 

0  GET  0S29 / N232D / SGM/ PARAMS " 01 "  ,  R 

©  GET  0S29/N24 1  D/CEiEP/SGM I NPT2/S<MANF'0WERBASE .  "02"  ,  R 
GET  LA61  A/SLAY/DATA/S«AC-TYPE.  /.^SPARES FILE.  "04"  ,  R 
TEMP  07503 

RUNY  0 S 29 / N 2 3 2 D / S G M / C S G M  7 R 
RUNY  0329/N232D/SGM/CPL0T 7  R 
(£)  REMO  CSGM  5  075  03  5  CF'LOT  5  0 1  5  025  04 


FIGURE  6-2.  SGM  TIME-SHARING  RUN 


Explanation 

1  -  Remove  all  files  from  user's  available  file  table  (AFT). 

2  -  Attach  permanent  file  containing  scenario  parameters  as  file-01. 

3  -  Attach  specified  maintenance  manpower  input  data  as  file-02. 

4  -  Attach  specified  spares  input  data  as  file-OA 

5  -  Create  a  temporary  file-07  for  sortie  plot  results,  and  a  temp¬ 

orary  file-03  for  daily  scenario  parameters. 
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6  -  Execute  the  previously  compiled  SGM  FORTRAN  program. 

7  -  Execute  the  previously  compiled  Plot  Program. 

8  -  Remove  all  accessed  files  from  user’s  AFT. 


BATCH 

The  interactive  parameter-setting  program  can  only  be  run  in  the  time¬ 
sharing  mode;  however,  the  SGM  run  process  has  been  designed  so  that  the  model 
may  be  run  in  either  the  remote-batch  or  time-sharing  mode.  The  control  cards 
for  a  batch  SGM  run  are  listed  in  Figure  6-3.  Detailed  information  is 
provided  in  the  Honeywell  Control  Cards  Reference  Manual  listed  in  Appendix  A 
of  this  manual. 

SGM  Batch  Run 

This  section  provides  a  brief  description  of  each  line  of  the 
control  cards  to  perform  an  SGM  batch  run.  The  line  numbers  of  the  explana¬ 
tion  correspond  to  those  in  Figure  6-3. 


1 00##S,  R  <  XL )  :  t8i  16,  58 

110*: NOTE:**  MIKE  **  QS29 > N232D /SOM / RSGMBTCH 

1 20* : I DENT : 0S20 1 1 N24 1 D  , 0S29UG00DW I N 

1 30*: OPTION: FORTRAN, NOMAP 

1 40*: SELECT: 0S29/N232B/SGM/CSGM 

150*: EXECUTE 

1 60* :  L I M I TS :  1 6 , 27K ,  ,  1 K 

1 70* : DATA : 0 1 , NCKSUM , COPY 

1  SO*: SELECTD: 0S29/N232D/SGM/PARANS 

1 90* :  ENDCOF'Y 

200*:  PRMFL:  02,  R,  S,  0S29/N24 1 D/  CDEP  /  SGM  I NPT2'  /  &MANPOWERBASE . 

210*: PRMFL: 04, R, S, LA61 A/SLAY/DATA/&AC-TYPE. /&SPARESF I LE . 

220*: FILE: 03, A3R 

230*: FILE: 07, A1S 

240* : OPT  I ON : FORTRAN , NOMAP 

250*: SELECT: 0S29/N232D/SGM/CFL0T 

260*: EXECUTE 

270* :  L I M I  TS :  1 ,  1 3K ,  ,  2K 

230*: FILE: 07, AIR 

2°0*:  END-JOB 


FIGURE  6-3.  SGM  BATCH  RUN 
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Explanation 

100  -  Set  card  format,  disposition,  tab  character  and  settings. 

110  -  Comment  card  identifying  user  and  program  to  be  run. 

120  -  User  and  account  number. 

130  -  Set  standard  options  for  loading  FORTRAN  program;  however, 
do  not  provide  a  memory  map  listing. 

140-160  -  Execute  previously  compiled  SGM  FORTRAN  program  with  a  CPU 
time  limit  of  0.14  hours,  a  core  limit  of  27K  words,  and  an 
output  limit  of  1024  lines. 

170-190  -  Attach  permanent  file  containing  scenario  parameters  as 
file-01.  The  SELECTD  card  is  used  because  it  copies  the 
file  at  the  time  the  job  is  submitted,  freeing  the  param¬ 
eters  file  for  subsequent  updating. 

200  -  Attach  specified  maintenance  manpower  input  data  as 
file-02. 

210  -  Attach  specified  spares  input  data  as  file-04. 

220  -  Create  temporary  scratch  file-03  for  daily  scenario  param¬ 
eters  . 

230  -  Create  temporary  file  for  SGM  sortie  results  to  be  used  as 
input  for  the  Plot  Program. 

240  -  Set  standard  options  for  loading  FORTRAN  Plot  Program;  no 
memory  map  is  to  be  listed. 

250-270  -  Execute  previously  compiled  FORTRAN  Plot  Program  with 
specified  CPU-time,  core-size,  and  output  limits. 

280  -  Access  file-07  containing  plot  data  from  SGM  run;  release 
file  after  run. 

290  -  Marks  end  of  control  cards. 
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APPENDIX  A 


RELATED  DOCUMENTS 


This  appendix  lists  documents  which  provide  useful  information  in  pro¬ 
gramming  and  maintaining  the  Sortie-Generation  Model  on  System  C.  This  list 
is  organized  into  the  following  general  categories: 


Honeywell  manuals  describing  the  GCOS  Series  600/6000  computer 
system,  languages,  etc. 

Air  Force  Data  Services  Center  (AFDSC)  manuals  describing  System  C 
operating  procedures, 

LMI  reports  and  manuals  describing  previously  developed  software  used 
in  conjunction  with  the  SGM. 

Technical  literature  describing  software  development  techniques, 
software  standards,  and  computer  algorithms  used  in  the  development  of 
the  Sortie-Generation  Model. 


HONEYWELL  MANUALS 

Language  Processors 

COBOL  Reference  Manual,  BS08 ,  August  1972. 

COBOL  User's  Guide,  BS09,  June  1971. 

FORTRAN,  BJ67 ,  March  1973. 

Operating  System 

Control  Cards  Reference  Manual,  BS19,  February  1973. 

General  Comprehensive  Operating  Supervisor  (GCOS),  BR43,  October 
1973. 

GCOS  Control  Cards  and  Abort  Codes  Pocket  Guide,  BJ69 ,  January  1973. 
GCOS  Time-Sharing  System  Pocket  Guide,  BS12,  October  1974. 

Service  and  Utility  Routines,  Including  Generators 


Bulk  Media  Conversion,  BP30,  August  1973. 


General  Loader,  BN90,  March  1972. 


FORTRAN  Subroutine  Libraries  Reference  Manual,  BR95 ,  May  1973. 
Service  Routines,  DA97,  June  1973. 

Sort/Merge  Program  (Generator),  BN87,  March  1972. 

Trace  and  Debug  Routines,  DB20,  September  1972. 

Time  Sharing  Systems 

GCOS  Time-Sharing  System  General  Information,  BS01,  July  1973. 

GCOS  Time-Sharing  System  Programmer's  Reference  Manual,  BR39 , 
November  1971. 

Time-Sharing  Applications  Library,  DA44,  December  1976. 

Time-Sharing  FORTRAN,  BR70,  February  1973. 

Time-Sharing  Text  Editor,  BR40 ,  June  1973. 

Time-Sharing  Terminal/Batch  Interface  Facility,  BR99 ,  January  1972. 
AFDSC  MANUALS 

Air  Force  Data  Services  Center 

Users  Handbook,  General  Information  and  Procedures.  Volume  I, 

October  1979. 

Users  Handbook,  AFDSC  Project  Management  and  Standards,  Volume  II, 
March  1979. 

Users  Handbook,  GCOS  Computer  System,  Volume  III,  November  197b. 
Users  Handbook,  GCOS  Remote  Terminals,  Volume  IV,  December  1975. 
LMI  REPORTS 

Logistics  Management  Institute 

LMI  Availability  System  Levels  of  Indenture  Model,  (Task  AF-605) 
November  1979. 

LMI  Availability  System  Overview,  (Task  AF605),  August  1978. 

Test  of  the  Availability  Model,  (Task  AF-605),  August  1978. 

The  System  That  Automatically  Runs  Systems  (STARS)  Overview, 

(Task  AF-605),  August  1978. 
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STARS  (Ttie  System  That  Automatically  Runs  Systems)  System  Guide, 
(Task  AF-605),  August  1978. 

STARS  User's  Guide,  (Task  AF-603),  August  1978. 

STARS  Analyst's  Guide,  (Task  AF-605),  August  1978. 

An  Efficient  Optimization  Procedure  for  Levels-of-Indenture 
Inventory  Model,  (Task  AF-605  Working  Note),  February  1978. 

A  Method  of  Treating  Common  Recoverable  Components  in  the  LMI 
Essentiality  Model,  (Task  76-5  Working  Note),  March  1976. 

A  Model  to  Allocate  Repair  Dollars  and  Facilities  Optimally, 

(Task  74-9),  August  1974. 

Test  of  a  System  Which  Considers  the  Priority  Allocation  of 
Spare  Recoverable  Components,  (Task  73-7),  August  1973. 

Measurements  of  Military  Essentiality,  (Task  72-3),  August  1972. 

TECHNICAL  LITERATURE 


Caine,  Stephen  H.  and  E.  Kent  Gordon,  "PDL  -  A  tool  for  software  design" 
in  Tutorial  on  Software  Design  Techniques,  California:  Institute  of 
Electrical  and  Electronics  Engineers  Inc.,  pp  168-173,  1977. 

Feller,  William,  An  Introduction  to  Probability  Theory  and  Its  Applica¬ 
tions,  Volume  I,  New  York:  John  Wiley  and  Sons,  1968. 

Fishman,  George  S.,  Principles  of  Discrete  Event  Simulation,  New  York: 
John  Wiley  and  Sons,  1978. 

Gass,  Saul  I.,  Computer  Science  and  Technology:  Computer  Model  Document¬ 
ation:  A  Review  and  an  Approach,  Washington,  D.C.:  National  Bureau 
of  Standards,  February  1979. 

Graves,  Joseph  S.,  "On  the  Storage  and  Handling  of  Binary  Data  using 
FORTRAN  with  Applications  to  Integer  Programming"  in  Operations 
Research,  Vol.  27  No.  3,  pp.  534-547,  May-June  1979. 

Krecker,  Dr.  D.  K.  et  al.,  Software  Documentation  and  Development 

Conventions,  (BDM/W-7-9-556-TR) ,  The  BDM  Corporation,  September 
1979. 

Kronmal,  Richard  A.  and  Arthur  V.  Peterson  Jr.,  "On  the  Alias  Method 
for  Generating  Random  Variables  from  a  Discrete  Distribution"  in  The 
American  Statistician,  Vol.  33  No.  4,  pp .  214-218,  November  1979. 

Naylor,  Thomas  H.  et  al.,  Computer  Simulation  Techniques,  New  York: 
John  Wiley  and  Sons,  1966. 
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National  Bureau  of  Standards,  Computer  Science  and  Technology,  Computer 
Model  Documentation  Guide,  (NBS  Special  Publication  500-73),  January 
1981. 
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APPENDIX  B 


SAMPLE  MODEL  RUN 

This  appendix  provides  a  sample  SGM  run  along  with  complete  listings  of 
all  inputs  used  to  produce  these  results.  This  run  represents  a  typical  F-4E 
maximal-effort  flying  scenario.  The  SGM  inputs  consist  of  a  flying  scenario 
description,  a  recoverable-spares  file,  and  an  aircraft  maintenance  file. 
Listings  of  the  scenario  parameters  and  the  spares  file  are  provided  im¬ 
mediately  after  the  SGM  run  results.  The  aircraft  maintenance  description  is 
always  provided  as  part  of  the  actual  SGM  results.  The  aircraft  maintenance 
file  was  produced  by  the  SGM  Maintenance  Subsystem  based  on  maintenance  data 
collected  from  Seymour  Johnson  AFB.  The  spares  file  was  produced  by  the  SGM 
Spares  Subsystem  for  a  72-UE  wing  located  at  Seymour  Johnson  AFB. 
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fRBCHJIAC  P*ai  BLM&. 


•i'.OT  PlLini® 


“RUNG  0S29/N232D/SGM/RSGMTSS 
ENTER  MANPOWERBASE? 

=SJWC 

ENTER  AC-TYPE  ? 

=F4 

ENTER  SPARESFILE  ? 

=SEYMGRNF 


PRECEDING  FhGE  BiuANK.-i'iOT 


B-5 


*************************************************************************** 
*********************************  SGM  RUN  #*#***********•*■*■*■*■*■#••»•■»■■#••#•*■«■•»•■* 

ttw*****#*******************************************-#***********-#-*** 

SIMULATION  -  REPLICATIONS  =  40  RANDOM  NUMBER  SEED  =  12.3 

AIRCRAFT  -  LIE  =  72  RESERVES  =  24  MAXIMUM  LAUNCH-SIZE  =  72 


FLYING  SCHEDULE  - 


WAVES 

TAKEOFF 

TIMES 

MINIMAL 

SORTIE 

WAIT 

OVERNIGHT 

DAYS 

PER  DAY 

FIRST 

LAST 

TURNAROUND 

LENGTH 

TIME 

RECOVERY 

30 

5 

0600 

1 824 

1 . 40 

1 . 70 

0 . 00 

3.  50 

RATES  - 

INITIAL  AIRCRAFT 

NMCM  RATE  ATTRITION  BREAK  RATE  GROUND-ABORT 

0 .  1 50  0 . 0 1  0 . 2000  0 . 0400 

LRU  TYPES  -  262 
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*#*#***#*#**##*#***** -fr*  *■*■&■»•*■■»•■«■■»■■«■*■*■*•#•■*  ■***■«•■»■■*•«• 
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wc  # 

AF  SC- 

BREAK 

RATE 

TOTAL 

SERVERS 

SERVICE  RATE 
( ACFT /HOUR ) 

1 

32 1X2 

0 . 2878 

27.77 

0. 1417 

325X0 

0. 1515 

15.06 

0. 1384 

3 

328R3 

0. 1062 

31.07 

0. 1273 

4 

328X0 

0.2010 

18.36 

0. 1769 

5 

328X4 

0. 1506 

9.57 

0.2507 

6 

404X1 

0.0225 

12.00 

0. 1510 

7 

423E2 

0. 1699 

9.95 

0.0632 

3 

423E3 

0.0608 

8.31 

0. 1043 

9 

423X0 

0. 1188 

12.  28 

0. 1327 

10 

423X1 

0. 0793 

6.57 

0. 1571 

11 

423X4 

0. 0836 

11.91 

0. 1365 

12 

426X2 

0. 0508 

10.81 

0. 1585 

13 

427R0 

0.0379 

4.56 

0. 3955 

14 

427X5 

0. 1633 

14.89 

0.2584 

15 

43 1 E 1 

0. 0335 

10.73 

0. 0857 

16 

431X1 

0. 0527 

131.49 

0.5356 

17 

462X0 

0. 1641 

7.27 

0.  5434 
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SORTIES/ 

SORTIES/ 

SORTIES/ 

CUM. 

RES. 

DAY 

PER 

PERIOD 

DAY 

AC 

NMCM 

NMCS 

LOSSES 

LEFT 

1 

1 

55.  4 

1 0 . 0 

4.4 

0. 

24.0 

45.  2 

1 9 . 0 

5.  7 

0.  4 

3 

38.  6 

23.9 

7.  1 

0.9 

4 

34.9 

26.0 

8 .  3 

1 . 3 

5 

33.  2 

207 .  2 
207.2 

2.91 

26.  5 

9.4 

1.6 

“> 

1 

47.5 

14.2 

8.4 

1 . 7 

22.3 

2 

40.  0 

19.5 

9.  7 

2.4 

3 

35.  9 

*1*3.  2 

10.7 

2.  8 

4 

32.  3 

24.6 

12.  1 

3.  1 

5 

30.  7 

186.  5 
393.7 

2.63 

25.  3 

13.0 

3.  6 

3 

1 

46.7 

11.7 

11.4 

4.0 

20 .  0 

O 

37.9 

18.  8 

12.  9 

4.6 

;  j* 

32.5 

'  •  9 

14.2 

5.2 

4 

30.3 

24.0 

15.2 

5.5 

5 

28.  3 

175.6 

569.3 

2.48 

24.4 

16.2 

5.8 

4 

1 

43.  1 

12.7 

14.3 

6.  1 

17.8 

2 

36.  1 

18.5 

15.6 

6  •  6 

2, 

31.5 

2 1 . 9 

16.  7 

6.9 

4 

29.  2 

23.5 

17.7 

7.  1 

5 

23.  2 

1 68 .  0 
737.3 

2.35 

22.9 

18.  7 

7.4 

5 

1 

41.3 

12.  1 

16.6 

7 

16.  2 

34 . 9 

17.7 

17.8 

8.  1 

"• 

30.  1 

21.2 

18. 9 

8.5 

4 

27.3 

22.3 

20 .  0 

8.  8 

5 

25.  3 

159.  1 

896 .  4 

2 . 23 

23.4 

20 . 8 

9.  1 

6 

1 

40.5 

11.7 

18.  3 

9.  4 

14.6 

2 

33.  9 

16.  7 

19.5 

9.8 

"  O  CT( 

21.0 

20.  6 

10.  1 

4 

27.3 

21.2 

21.4 

10.  3 

5 

CT  O 

■  o 

1 56 . 2 

1 052 . 6 

2.  19 

21.3 

22.  5 

1 0 .  5 

7 

t 

38.  2 

1 2 .  0 

20.  1 

1  0.  8 

13.  2 

2 

32.  4 

16.3 

21 . 7 

11.1 

3 

28 . 5 

18.5 

22.  7 

11.6 

4 

24.8 

21 . 3 

23.  6 

11.9 

5 

23.  2 

147.  0 

1  1 99 .  6 

2.06 

21.8 

24 . 3 

12.2 

3 

1 

37.  1 

12.7 

20 . 9 

12.  4 

11.6 

2 

3 1 . 6 

16.7 

21.9 

12.9 

3 

27.  1 

20 . 0 

22.9 

13.  1 

4 

24.  3 

21.6 

-j*  •  y 

13.5 

5 

23 .  4 

143.5 

2.02 

i'l .  8 

24.7 

13.8 

B-8 


1343.  1 


9 

1 

36 .  S 

12.6 

21. 1 

14.  1 

10.0 

30.  S 

16.8 

22.  5 

14.6 

3 

27.4 

19.4 

23.  1 

14.9 

4 

24.6 

21.2 

23.9 

15.0 

5 

23.2 

142.8 

1485.9 

2.00 

21.9 

24.8 

15.3 

10 

1 

36.  6 

11.7 

2 1 . 8 

15.5 

3.5 

2 

30.  4 

16.8 

23.2 

15.7 

3 

27.4 

19.2 

24.0 

15.9 

4 

25.0 

20.3 

25.2 

16.  1 

5 

23.5 

143.0 

1628.9 

2.00 

20.8 

25.8 

16.3 

11 

1 

35 . 9 

12.4 

22.  1 

16.6 

7.5 

•? 

30.  5 

16.6 

23.  3 

17.0 

3 

26.4 

19.5 

24.4 

17.  3 

4 

25.  3 

20.0 

24.9 

17.5 

5 

23.  9 

142.0 
1770. 8 

1 . 99 

19.9 

26.0 

17.7 

12 

1 

35.9 

11.6 

22.6 

17.8 

6 . 3 

30.  2 

16.6 

23.7 

18.2 

o 

26.9 

18.  0 

25.2 

18.5 

4 

24.  5 

19.3 

26.2 

18.7 

5 

23.  6 

141.0 

1911.9 

1 . 98 

19.5 

26.8 

18.  8 

13 

1 

36.  4 

10.6 

23.  3 

19.2 

5.  0 

2 

29.7 

16.  1 

24.4 

19.5 

3 

26.  7 

18.2 

25.4 

19.3 

4 

24.  8 

18.8 

26.2 

20.0 

5 

22 .  9 

140.  4 

2052. 3 

1 . 97 

1 9 . 8 

27.0 

20.2 

14 

1 

35.  9 

11.4 

23.0 

20.  4 

3.9 

2 

29.  S 

15.9 

24.2 

20.6 

3 

25.  9 

19.3 

25.  1 

20 . 9 

4 

24.  3 

19.  3 

26 . 0 

21.2 

5 

22.  3 

1 38 . 8 

2191.0 

1 . 95 

20 .  2 

26 . 9 

21 . 4 

15 

1 

35 . 4 

11.5 

23.  1 

21.5 

3.  0 

Ji- 

30 .  S 

15.  3 

24.2 

21.7 

3 

27  •  O 

17.5 

25.  0 

22.  1 

4 

24.4 

IS.  7 

26.0 

22.5 

5 

23.  6 

141.2 

2332.3 

1 . 99 

19.  0 

26.  7 

22.8 

16 

1 

35.4 

10.6 

23.3 

23.0 

2.  1 

2 

29.9 

15.4 

24.3 

23.2 

3 

26.  3 

18.0 

25.3 

23.4 

4 

23.6 

19.7 

25.9 

23.8 

5 

22.5 

137.7 

2469.9 

1 . 95 

20  •  2 

26.  4 

24 . 0 

17 

1 

34.6 

1 0 . 6 

23.9 

24 . 3 

1.5 

*> 

28.9 

1 5 . 0 

24.9 

24.5 

'  J 

25.5 

17.6 

25.7 

24.9 

4 

23 . 9 

18.4 

26.5 

25.2 
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4 

18.6 

15.3 

25.5 

35.  6 

5 

17.6 

109.9 

3697.2 

1.81 

15.  7 

26.  1 

35 . 8 

27 

1 

27.8 

8.4 

22.  7 

35.9 

2 

23.0 

12.4 

23.  7 

36.2 

3 

20.  5 

14.  1 

24.3 

36.3 

4 

18.2 

15.2 

25.  2 

36.5 

5 

17.  3 

106.9 
3804. 1 

1.79 

15.  6 

25.3 

36.7 

28 

1 

27.8 

8.3 

22.3 

36.  8 

2 

23.9 

10.3 

23.2 

37.0 

3 

20.  2 

13.7 

24 . 0 

37.  1 

4 

13.6 

14.9 

24 . 6 

37.3 

5 

17.  4 

107.9 

3912.0 

1 . 33 

15.  3 

25.0 

37.6 

29 

1 

27.  1 

8.2 

21.8 

37.3 

2 

23.2 

11.3 

22.4 

38.  2 

3 

20.4 

12.9 

3  • 

33.5 

4 

18.  6 

1 3 . 9 

24 . 0 

33.  7 

5 

17.5 

106.  8 
4018.3 

1 . 86 

14.  0 

24.7 

39 . 0 

30 

1 

26.5 

7.9 

21 . 3 

39.  1 

2 

22.0 

10.8 

22.4 

39.  4 

20.0 

12.  5 

23.0 

39.6 

4 

18.  1 

13.6 

23.5 

39.3 

5 

17.2 

103.  7 

1 . 84 

13.  7 

24.  4 

39.  9 

4122.5 


TOTAL  SORTIES  FLOWN  =  4122.5 


CPU  TIME  USED  =  9.54  MIN 

MEMORY  USED  =  20  K  WORDS 
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mn  n  o  -o  oo 


2.91 

2.63 

2.48 

2.35 

2.23 

2.  19 

2.06 

2.02 

2.00 

2.00 

1.99 

1.98 

1.97 

1.95 

1.99 

1.95 

1.93 

1.91 

1.90 

1.93 

1.91 

1.84 

1.84 

1.83 

1.81 

1.81 

1.79 

1.83 

1.86 

1.84 
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SORTIES 
PER  AC 
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3.0 

I  * 

I 

I 

I  * 

2.5  * 

I 

I 

I 

I 

2.0 

I 

I 

I 

I 

1.5 
I 
I 
I 
I 

1.0 

I 

I 

I 

I 

0.5 

I 

I 

I 

I 

0 - 


* 

*  # 

* 


******  *  * 


*  *  *  *  *  * 


* 


*******  * 


10 


20 


30 


DAY  OF  SCENARIO 
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207 

136 

176 

168 

159 

156 

147 

144 

143 

143 

142 

141 

140 

139 

141 

133 

135 

132 

130 

130 

126 

120 

US 

115 

112 

110 

107 

108 

107 

104 
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THE  CURRENT  VALUES  OF  THE  SCENARIO  INPUTS  ARE  : 


INPUT 

SCENARIO  ITEM 

CURRENT 

CODE 

VALUE 

1 

#  SIMULATIONS 

5= 

40 

2 

RANDOM  NUMBER  SEED 

= 

12.3 

3 

UE 

- 

72 

4 

AIRCRAFT  BREAK  RATE 

= 

.  20 

5 

INITIAL  NMCM  RATE 

= 

.  15 

6 

#  DAYS 

= 

30 

7 

FIRST  TAKEOFF  TIME 

= 

0600 

S 

LAST  TAKEOFF  TIME 

= 

1824 

9 

SORTIE  LENGTH  (HRS) 

= 

1.7 

10 

MINIMAL  RECOVERY  TIME 

(HRS) 

= 

1.4 

1 1 

INFINITE  MANPOWER  (YES/NO) 

= 

NO 

12 

INFINITE  SPARE  PARTS 

(YES/NCD 

= 

NO 

13 

AUGMENT  RESERVE  AC  (YES/NO) 

= 

NO 

14 

MAX  SORTIES/DAY  FOR  PLOT (OR  0) 

= 

0 

THE  FOLLOWING  ITEMS  MAY  VARY 

BY  DAY ( D ) 

OR  CYCLE 

15 

ATTRITION  RATE 

(D) 

.  01 

16 

GROUND  ABORT  RATE 

( D  > 

= 

.  04 

17 

#  MASS  LAUNCHES  PER  DAY  (D) 

= 

5 

IS 

RESERVE  AIRCRAFT 

(D) 

= 

24 

19 

MAXIMUM  LAUNCH-SIZE 

(C/D) 

= 

72 

FhGE 


bj***oi  ni*u> 
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PBECSCING 


RECOVERABLE  SPARES  FILE 
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INITIAL  RESUPPLY  TIMES 


REMOVAL 

INITIAL 

NO.  IN 

BASE 

(DAYS) 

NSN 

RATE 

GPA 

STOCK 

RESUPPLY 

NRTS 

BASE 

DEPOT 

1 4300 1 0454699BF 

.01786 

1 

1.0 

5 

8.156 

0.08 

6.0 

26.2 

1430010387038BF 

.01700 

1 

1.0 

6 

7.211 

0.05 

6.0 

27.4 

2620000884523 

.01708 

2 

0.9 

90 

28.649 

1.00 

0. 

18.0 

586500 199421 OEM 

.00109 

4 

1.0 

1 

1.405 

0.90 

6.0 

31.0 

1430010399244 BF 

.01285 

1 

0.3 

1 

1.744 

0.08 

6.0 

27.7 

6610004629837BF 

.00404 

1 

1.0 

6 

3.091 

0.85 

5.0 

14.7 

1430010610350BF 

.00607 

1 

1.0 

3 

2.226 

0. 

6.0 

0. 

1630004463778 

.01676 

2 

1.0 

33 

9.226 

0.06 

5.0 

14.0 

1270010588980 

.00483 

1 

1.0 

4 

0.937 

0.45 

6.0 

11.5 

5826010395000 

.00600 

1 

0.3 

1 

1.373 

0.30 

9.0 

22.1 

5826010401785 

.00692 

1 

0.3 

2 

1.650 

0.40 

8.0 

21.0 

1430010387055BF 

.00484 

1 

1.0 

3 

1.742 

0. 

6.0 

0. 

5826010183511 

.00168 

2 

1.0 

9 

3.878 

0.60 

4.0 

34.6 

1430002356325BF 

.01023 

1 

0.9 

6 

2.282 

0.09 

3.0 

17.1 

284000871 741 4PL 

.00084 

O 

J. 

1.0 

2 

2.431 

0,76 

6.0 

28.6 

5865000233292EW 

.00200 

1 

1.0 

0 

0.005 

1.00 

0. 

6.8 

586500371 3344EN 

.00133 

4 

1.0 

3 

0.723 

0.97 

3.0 

13.3 

1270000641997 

.00441 

1 

1.0 

6 

1.345 

0.66 

4.0 

10.9 

61 15008681 999EU 

.00134 

5 

0.2 

1 

0.092 

0.43 

2.0 

78.8 

5865000999348EW 

.00103 

5 

1.0 

2 

0.548 

0.98 

2.0 

12.3 

66100081441 17BF 

.00147 

1 

1.0 

2 

0.726 

1.00 

0. 

12.7 

1660000714255 

.00513 

1 

1.0 

19 

4.565 

0.47 

5.0 

34.0 

5865O00854945EW 

.00059 

1 

1.0 

0 

0.005 

1.00 

0. 

14.6 

1 56000788394 1BF 

.00066 

1 

1.0 

1 

0.664 

0.78 

6.0 

23.1 

586500 1627964EW 

.00070 

3 

1.0 

3 

0.542 

0.95 

5.0 

18.5 

5865007598099EW 

.00067 

4 

1.0 

2 

0.410 

0.97 

4.0 

15.4 

1270005562269 

.01025 

1 

0.4 

5 

1.519 

0.29 

4.0 

16.9 

6115010267271EW 

.00171 

4 

0.3 

0 

0.041 

0.80 

5.0 

16.0 

5821010668605 

.00218 

1 

1.0 

2 

0.803 

0.17 

5.0 

16.3 

586501 048 1589EW 

.00055 

6 

1.0 

2 

0.463 

0.38 

4.0 

16.3 

5865001 8879 18EW 

.00050 

1 

1.0 

0 

0.005 

0.83 

6.0 

14.3 

5865004095 152EW 

.00112 

2 

1.0 

1 

0.008 

0.15 

6.0 

14.0 

5826010395013 

.00340 

1 

0.3 

2 

0.853 

0.71 

8.0 

16.7 

6610009988758BF 

.00226 

1 

1.0 

5 

1.503 

0.30 

5.0 

14.1 

5865004376027EW 

.00118 

1 

1.0 

3 

0.011 

1.00 

0. 

16.0 

4310010183040BF 

.00157 

1 

1.0 

4 

1.182 

0.96 

7.0 

15.1 

1680004 500573BF 

.00090 

3 

1.0 

5 

0.712 

1.00 

0. 

14.0 

586500476444 2EW 

.00073 

4 

1.0 

3 

0.402 

0.96 

2.0 

11.5 

5826010403093 

.00217 

1 

0.3 

1 

0.515 

0.72 

5.0 

17.3 

586500 1559266EW 

.00055 

10 

1.0 

3 

0.525 

0.95 

2.0 

11.5 

6605009940194 

.01606 

1 

0.7 

12 

2.667 

0.01 

5.0 

14.0 

58650013501 17EW 

.00084 

6 

0.8 

0 

0.012 

0.42 

6.0 

6.6 

2620010579673 

.02334 

2 

0.1 

24 

6.176 

1.00 

0. 

21.0 

586500329404 SEW 

.00063 

2 

0.6 

0 

0.023 

0.35 

1.0 

15.0 

5865CC0076945EW 

.00055 

4 

1.0 

2 

0.252 

0.97 

4.0 

11.8 

1430010682150BF 

.00137 

2 

1.0 

2 

0.059 

1.00 

0. 

14.0 

1430010384963BF 

.00151 

1 

1.0 

4 

1.320 

0.88 

2.0 

16.3 

58650013501 16EW 

.00104 

6 

0.8 

1 

0.012 

0.05 

5.0 

8.0 

5865000076949EW 

.00057 

4 

1.0 

2 

0.240 

0.97 

4.0 

10.5 

5865000094382EW 

.00055 

3 

1.0 

2 

0.257 

0.97 

1.0 

12.2 

pHBCfcDING  BLAi'iK-i'  CT 
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INITIAL  RESUPPLY  TIMES 


REMOVAL 

INITIAL 

NO.  IN 

BASE 

(DAYS) 

NSN 

RATE 

QPA 

FiV 

STOCK 

RESUPPLY 

NRTS 

BASE 

DEPOT 

5826010424054 

.00388 

1 

0.3 

2 

0.696 

0.88 

6.0 

10.7 

5865008685 177EH 

.00081 

2 

0.6 

1 

0.027 

0.86 

1.0 

14.0 

1430004902978BF 

.00379 

1 

1.0 

16 

4.636 

0.94 

4.0 

20.9 

5865008685230EW 

.00077 

4 

0.8 

0 

0.012 

0.13 

3.0 

13.2 

5865001 68 1504EW 

.00097 

2 

0.6 

0 

0.013 

0.21 

4.0 

7.7 

6615010709243BF 

.00399 

1 

0.3 

1 

0.378 

0.04 

5.0 

20.5 

2995006911224 

.00179 

2 

1.0 

9 

2.204 

0.82 

6.0 

14.0 

58650 10976255EW 

.00069 

2 

1.0 

5 

5.387 

1.00 

0. 

20.2 

586501021 1657EW 

.00132 

2 

1.0 

3 

0.750 

0.12 

5.0 

16.3 

5865010149262BJ 

.00050 

l 

1.0 

1 

0.006 

1.00 

0. 

13.0 

1650010841569 

.00408 

2 

1.0 

18 

3.083 

0.57 

5.0 

14.0 

1560008670561BF 

.00073 

2 

1.0 

3 

0.858 

0.87 

6.0 

11.7 

5865004263 144EH 

.00100 

4 

1.0 

6 

2.315 

0.24 

6.0 

12.6 

5826010395015 

.00113 

1 

0.3 

1 

0.319 

0.77 

6.0 

18.9 

1650001 486506 BF 

.00120 

2 

1.0 

6 

0.713 

1.00 

0. 

12.0 

1 43000 1326677BF 

.00067 

1 

1.0 

2 

0.611 

0.91 

4.0 

16.0 

1650009243005BF 

.00075 

2 

1.0 

4 

0.484 

0.90 

4.0 

14.0 

5826010419255 

.00252 

1 

0.3 

2 

0.533 

0.52 

8.0 

16.4 

5865008685231 ED 

.00139 

2 

0.6 

2 

0.025 

0.07 

5.0 

27.0 

1270010423441 

.00071 

1 

0.4 

l 

0.280 

0.85 

2.0 

23.2 

6615010546075BF 

.00167 

1 

1.0 

8 

1.954 

1.00 

0. 

22.0 

1 560007906873BF 

.00059 

1 

1.0 

1 

0.238 

0.76 

7.0 

8.3 

1270003528728 

.00100 

1 

0.4 

1 

0.272 

0.86 

3.0 

15.4 

5826010397621 

.00051 

1 

1.0 

2 

0.497 

0.49 

5.0 

33.3 

1270003495219 

.00099 

1 

0.4 

1 

0.276 

0.83 

3.0 

15.9 

1430010597789BF 

.00064 

1 

1.0 

1 

0.286 

0.10 

6.0 

20.5 

1430000780463BF 

.00422 

4 

1.0 

4 

1.027 

0.08 

3.0 

15.0 

1270003495873 

.00090 

1 

0.4 

1 

0.236 

0.93 

3.0 

15.5 

143000179001 1BF 

.00053 

1 

0.1 

0 

0.018 

0.86 

6.0 

10.5 

661 50042004068F 

.00051 

3 

1.0 

4 

0.641 

1.00 

0. 

12.0 

661 0000 109356BF 

.00121 

1 

1.0 

2 

0.533 

0.70 

4.0 

6.8 

5826010419398 

.00122 

1 

0.3 

1 

0.262 

0.43 

8.0 

17.7 

1430001444336BF 

.00137 

1 

0.7 

6 

1.767 

0.94 

4.0 

30.7 

127000542930 9 

.00083 

1 

0.4 

1 

0.236 

0.84 

9.0 

15.4 

66 10004001 20 18F 

.00064 

1 

1.0 

2 

0.554 

0.77 

5.0 

16.2 

5865000 139369EM 

.00125 

-> 

i. 

0.5 

2 

0.017 

0.52 

3.0 

9.0 

1 *3001 05332 12BF 

.00135 

1 

1.0 

2 

0.486 

0. 

6.0 

0. 

6610004335240 

.00459 

1 

0.1 

2 

0.461 

0.38 

6.0 

15.3 

1270003482091 

.00064 

1 

0.4 

1 

0.194 

0.79 

6.0 

19.3 

6610001812539 

.00120 

2 

1.0 

8 

1.826 

0.85 

17.0 

14.0 

5826010419380 

.00096 

1 

0.3 

1 

0.206 

0.64 

6.0 

15.6 

5865000 139368EW 

.00081 

2 

0.5 

1 

0.006 

0.06 

2.0 

13.0 

1270005518449 

.00140 

1 

0.4 

2 

0.444 

0.93 

3.0 

15.9 

582601041938! 

.00104 

1 

0.3 

1 

0.181 

0.33 

6.0 

17.6 

5895009190413 

.00062 

2 

1.0 

6 

1.325 

0.80 

4.0 

29.4 

6610009250935 

.00139 

1 

0.1 

1 

0.165 

0.86 

5.0 

15.8 

1 430001 946467BF 

.00084 

1 

1.0 

2 

0.459 

0.90 

5.0 

9.0 

2840008846275PL 

.00053 

2 

1.0 

4 

0.959 

0.96 

11.0 

14.0 

6610001337868 

.00070 

1 

1.0 

2 

0.372 

0.92 

5.0 

10.7 

1560001430932BF 

.00227 

1 

1.0 

5 

1.243 

0.09 

9.0 

7.6 

B-22 


L 


INITIAL  RESUPPLY  TI*S 


REMOVAL 

INITIAL 

NO.  IN 

BASE 

(DAYS) 

NSN 

RATE 

QPA 

FAP 

STOCK 

RESUPPLY 

MTTS 

BASE 

DEPOT 

58650 10805675EW 

.00333 

1 

1.0 

7 

2.664 

0.29 

4.0 

20.0 

2840010269455PL 

.00083 

2 

1.0 

6 

1.475 

0.97 

5.0 

14.0 

1430005072655BF 

.00721 

1 

0.3 

3 

0.606 

0.06 

4.0 

17.3 

6610009250934 

.00739 

1 

0.1 

4 

0.897 

0.78 

10.0 

15.5 

1680010520816LS 

.00103 

2 

1.0 

6 

1.153 

0.97 

9.0 

11.0 

1270003495215 

.00097 

1 

0.4 

1 

0.125 

0.16 

4.0 

19.6 

1430000435192BF 

.00056 

1 

1.0 

1 

0.125 

0.08 

3.0 

14.5 

1430001 117990BF 

.00144 

1 

1.0 

4 

0.951 

0.60 

4.0 

15.3 

15600008291 188F 

.00052 

1 

1.0 

1 

0.101 

0.04 

3.0 

21.4 

1660001359566 

.00185 

1 

1.0 

7 

1.420 

0.97 

6.0 

16.0 

1270010298391 

.00058 

1 

0.4 

1 

0.098 

0.75 

3.0 

10.3 

1270003939141 

.00061 

1 

0.4 

1 

0.088 

0.15 

5.0 

23.8 

6610010451020 

.00119 

1 

1.0 

4 

0.817 

0.80 

7.0 

14.1 

2840010272393PL 

.00082 

2 

1.0 

6 

1.320 

0.84 

8.0 

14.0 

1 43000 1444333BF 

.00426 

1 

0.1 

1 

0.086 

0.12 

4.0 

25.7 

2840006865740PL 

.00052 

O 

tm 

1.0 

4 

0.868 

0.96 

8.0 

12.0 

1680007335768LS 

.00050 

4 

1.0 

7 

0.515 

0.73 

4.0 

12.0 

5826010408428 

.00094 

1 

0.3 

1 

0.083 

0.70 

6.0 

4.7 

6610001811750 

.00058 

1 

1.0 

2 

0.294 

0.83 

7.0 

10.9 

6605009458168 

.01023 

1 

0.7 

13 

2.595 

0.38 

4.0 

14.0 

5826010329930 

.00195 

1 

1.0 

4 

1.033 

0.15 

6.0 

14.2 

1430001444284BF 

.00088 

1 

1.0 

10 

2.610 

0.84 

6.0 

56.4 

1430005072644BF 

.00656 

1 

1.0 

7 

1.530 

0.08 

3.0 

14.1 

1630002769849 

.00180 

2 

1.0 

8 

1.325 

0.28 

7.0 

10.0 

5895003977851 

.00243 

1 

0.3 

2 

0.311 

0.02 

8.0 

54.6 

1 430001 4443198F 

.00056 

1 

1.0 

3 

0.615 

0.95 

1.0 

18.8 

156000954 7752BF 

.00055 

2 

1.0 

6 

1.023 

0.83 

4.0 

21.0 

2995006141 130PL 

.00069 

2 

1.0 

5 

0.945 

0.97 

10.0 

11.0 

66150105204238F 

.00065 

1 

1.0 

3 

0.519 

1.00 

0. 

15.2 

1660004463827 

.00057 

1 

1.0 

2 

0.272 

0.89 

6.0 

9.5 

291500133800 7PL 

.00068 

2 

1.0 

6 

1.195 

0.93 

4.0 

15.0 

4320000586925HS 

.00160 

4 

1.0 

18 

3.142 

0.71 

5.0 

12.0 

611 5009031 256BF 

.00247 

2 

1.0 

10 

1.869 

0.44 

5.0 

10.0 

1430003592030BF 

.00082 

1 

0.1 

1 

0.026 

0.91 

6.0 

9.4 

1270005518452 

.00737 

1 

0.4 

4 

0.729 

0.06 

4.0 

15.4 

2915010887077PL 

.00055 

2 

1.0 

5 

0.794 

0.95 

11.0 

12.1 

5826009941578 

.00050 

1 

1.0 

2 

0.217 

0.14 

6.0 

22.3 

1650009243006 8F 

.00082 

2 

1.0 

6 

0.416 

0.91 

6.0 

11.0 

1270005518451 

.00086 

1 

0.4 

0.224 

0.79 

4.0 

15.5 

5826000897912 

.00233 

1 

1.0 

7 

1.154 

0.89 

5.0 

12.0 

6605010787915 

.00769 

1 

0.3 

4 

0.505 

0.15 

4.0 

9.0 

5826010329923 

.00056 

1 

1.0 

2 

0.208 

0.18 

5.0 

14.1 

1 56000 1430930BF 

.00108 

1 

1.0 

4 

1.319 

0.10 

11.0 

18.2 

14300053151 63 BF 

.00324 

1 

1.0 

4 

0.676 

0.05 

3.0 

14.2 

5895003977852 

.00147 

1 

1.0 

2 

0.450 

0.09 

4.0 

18.2 

66 10004001 20 2BF 

.00096 

2 

0.7 

6 

0.829 

0.92 

15.0 

11.0 

1 4300029897 23BF 

.00160 

1 

0.3 

3 

0.435 

0.89 

5.0 

16.8 

5826004449847 

.00092 

1 

0.5 

2 

0.133 

0.85 

2.0 

15.0 

1650009995494BF 

.00085 

1 

1.0 

3 

0.360 

0.39 

6.0 

13.0 

1270001487615 

.00453 

1 

0.4 

3 

0.371 

0.13 

3.0 

12.9 

B-23 


INITIAL  RESUPPLY  TINES 


REMOVAL 

INITIAL 

NO.  IN 

BASE 

(DAYS) 

NSN 

RATE 

SPA 

FAP 

STOCK 

RESUPPLY 

(*TS 

BASE 

DEPOT 

1430005072656BF 

.00993 

1 

1.0 

15 

3.482 

0.26 

3.0 

14.0 

59900024457 15NT 

.00234 

1 

0.6 

5 

0.943 

0.95 

3.0 

11.9 

1620009891992 

.00077 

1 

1.0 

3 

0.352 

0.99 

5.0 

9.2 

6645008722128 

.00061 

1 

1.0 

3 

0.389 

0.92 

5.0 

12.2 

6615006000969BF 

.00065 

1 

1.0 

4 

0.606 

1.00 

0. 

18.0 

1630010266543 

.00089 

1 

1.0 

4 

0.623 

0.77 

5.0 

15.1 

1270001185901 

.00136 

1 

0.4 

2 

0.119 

0.12 

3.0 

16.3 

2995001598730 

.00163 

2 

1.0 

11 

1.836 

0.98 

9.0 

11.0 

1 430001 834083BF 

.00349 

2 

0.1 

4 

0.279 

0.93 

2.0 

12.0 

1430001444315BF 

.00067 

l 

0.7 

3 

0.409 

0.87 

3.0 

16.3 

6610000657276BF 

.00054 

2 

1.0 

6 

0.641 

0.93 

3.0 

12.0 

1095004538407 

.00107 

1 

1.0 

3 

0.361 

0.08 

4.0 

22.8 

1 43000060034 1BF 

.00070 

1 

1.0 

4 

0.630 

0.90 

3.0 

16.6 

1270001095653 

.00080 

1 

0.4 

2 

0.063 

0.14 

4.0 

14.0 

1430001 117993BF 

.00073 

1 

1.0 

4 

0.645 

0.91 

3.0 

15.6 

6680008800844 BF 

.00051 

2 

1.0 

6 

0.602 

0.80 

8.0 

12.0 

1270004752473 

.00077 

1 

0.2 

2 

0.066 

0.93 

4.0 

6.7 

6760004051090 

.00182 

1 

1.0 

4 

0.880 

0.16 

4.0 

11.3 

2935007892422 

.00064 

2 

1.0 

7 

0.719 

0.85 

4.0 

13.0 

14300039347508F 

.00057 

1 

0.1 

2 

0.022 

0.93 

6.0 

12.0 

6615007202931 

.00054 

1 

1.0 

3 

0.244 

0.92 

5.0 

9.0 

6610000663840 

.00144 

2 

1.0 

10 

1.943 

0.89 

4.0 

10.0 

1 43000595772 1BF 

.00061 

1 

0.1 

2 

0.013 

0.94 

6.0 

6.0 

1270009160176 

.00051 

1 

1.0 

4 

0.523 

0.97 

1.0 

18.1 

6615010520422BF 

.00107 

1 

1.0 

4 

0.458 

1.00 

0. 

8.0 

6605008365333 

.00847 

1 

0.7 

10 

1.605 

0.11 

4.0 

22.0 

1 430005203506BF 

.00438 

2 

0.1 

5 

0.229 

0.88 

3.0 

8.0 

1270009755895 

.00053 

1 

1.0 

3 

0.220 

0.91 

3.0 

8.0 

6610009867628BF 

.00130 

2 

1.0 

11 

1.549 

0.93 

5.0 

12.0 

586501 03846 16EU 

.00069 

2 

1.0 

10 

8.402 

1.00 

0. 

17.9 

1 43000 1940072BF 

.00050 

1 

1.0 

3 

0.196 

0.96 

9.0 

6.2 

6605009497835 

.00622 

1 

0.7 

7 

1.072 

0.07 

4.0 

14.0 

1270004767945 

.00092 

l 

1.0 

5 

0.703 

0.87 

4.0 

14.4 

6685001 159606BF 

.00061 

1 

1.0 

4 

0.372 

0.78 

4.0 

14.0 

1 6600049590 12BF 

.00175 

1 

1.0 

7 

1.022 

0.32 

6.0 

13.0 

6105002620432BF 

.00426 

1 

1.0 

15 

3.317 

0.91 

5.0 

14.0 

1270000238962 

.00262 

1 

1.0 

5 

0.592 

0.27 

3.0 

7.0 

1430001444292BF 

.00081 

1 

1.0 

5 

0.705 

0.90 

4.0 

15.3 

6620005538827 

.00082 

2 

1.0 

9 

0.901 

0.94 

6.0 

11.0 

6615008699834 

.00082 

1 

1.0 

4 

0.306 

0.30 

5.0 

14.0 

6340001 1659638F 

.00113 

2 

1.0 

10 

1.069 

0.79 

4.0 

11.0 

1270000041879 

.00106 

1 

0.4 

3 

0.095 

0.10 

3.0 

20.0 

6610004809436BF 

.00189 

1 

1.0 

7 

0.998 

0.63 

4.0 

14.0 

1 430003980384 8F 

.00096 

1 

1.0 

6 

0.967 

0.95 

4.0 

16.5 

1660000893553 

.00072 

1 

1.0 

4 

0.280 

0.74 

4.0 

10,0 

1270000238954 

.00137 

1 

1.0 

4 

0.283 

0.36 

3.0 

5.0 

1 43000 1 4589 1 OBF 

.00421 

1 

1.0 

6 

0.780 

0.05 

3.0 

4.0 

4810000893550TP 

.00069 

1 

1.0 

4 

0.269 

0.64 

4.0 

10.0 

1270000238963 

.00442 

1 

0.2 

4 

0.264 

0.10 

4.0 

15.0 

1430009328553W 

.00128 

1 

1.0 

8 

1.439 

0.96 

3.0 

19.0 

MSN 

RENO VAL 
RATI 

1430001 44440 7Bf 

.00102 

1650003500992BF 

.00118 

1430001747045BF 

.01938 

1430008339603BF 

.00058 

1430002471537BF 

.00075 

6710002600300 

.00063 

586501041825704 

.00095 

1270004767946 

.00207 

6615003739254BF 

.00080 

6610007998315 

.00165 

1660009091473 

.00065 

6610001506785 

.00153 

1650008369785BF 

.00057 

1 430002 193773BF 

.00059 

1430001747048BF 

.01159 

1430010039780BF 

.00246 

6110001871018BF 

.00059 

6615005905172BF 

.00148 

6610010347616 

.00133 

1430001 330 189BF 

.00057 

1650007906855BF 

.00082 

1 4300041 00845BF 

.00116 

6610008831034 

.00229 

1280009338792NT 

.00156 

1270000231042 

.00064 

6605008365335 

.01156 

6110005717654BF 

.00200 

1430010039782BF 

.00101 

5865010169623EW 

.00072 

1430010039781BF 

.00293 

1660007935799 

.00225 

1660010215625 

.00066 

6610009539670 

.00114 

6685006845176 

.00119 

6605001113645 

.00084 

6610009942170 

.00107 

6605009876166 

.00085 

1280009338793NT 

.00123 

6110000978394BF 

.00267 

661 000454 6632BF 

.00666 

5865NC134683LEW 

.00496 

5841000738241 

.00461 

6615009825301 

.00147 

5895009190400 

.00449 

5895001688798 

.00377 

5895005205891 

.00824 

5831007825305 

.00179 

6615010159539 BF 

.00396 

6610008451070 

.00334 

292001013986 7YP 

.00090 

8PA 

F  AP 

INITIAL 

STOCK 

INITIAL 
NO.  IN 
RESUPPLY 

1 

1.0 

5 

0.589 

1 

1.0 

6 

0.744 

1 

0.1 

4 

0.267 

1 

1.0 

5 

0.591 

1 

1.0 

5 

0.574 

1 

1.0 

4 

0.262 

2 

1.0 

9 

1.099 

1 

1.0 

5 

0.469 

1 

1.0 

5 

0.416 

1 

1.0 

7 

0.935 

1 

1.0 

5 

0.454 

1 

1.0 

7 

0.939 

1 

1.0 

4 

0.215 

1 

1.0 

5 

0.464 

1 

0.1 

4 

0.156 

1 

0.9 

6 

0.682 

1 

1.0 

5 

0.369 

1 

1.0 

5 

0.353 

1 

1.0 

5 

0.328 

1 

1.0 

5 

0.427 

1 

1.0 

5 

0.348 

1 

1.0 

7 

0.946 

1 

1.0 

9 

1.739 

1 

1.0 

6 

0.497 

1 

1.0 

5 

0.259 

1 

0.7 

16 

2.494 

1 

1.0 

9 

1.173 

1 

0.9 

5 

0.256 

1 

1.0 

5 

0.213 

1 

0.6 

6 

0.508 

1 

1.0 

10 

1.352 

1 

1.0 

6 

0.406 

1 

1.0 

7 

0.766 

2 

1.0 

14 

1.732 

1 

1.0 

6 

0.407 

1 

0.7 

6 

0.342 

1 

0.7 

5 

0.108 

1 

1.0 

7 

0.543 

2 

1.0 

23 

3.190 

1 

1.0 

12 

1.845 

1 

1.0 

12 

1.598 

1 

1.0 

12 

1.480 

1 

1.0 

8 

0.701 

2 

1.0 

20 

1.841 

1 

1.0 

15 

1.781 

1 

1.0 

14 

1.890 

2 

1.0 

15 

0.780 

1 

0.7 

9 

0.597 

1 

1.0 

14 

1.718 

1 

0.5 

8 

1.693 

RESUPPLY  TI*S 


BASE 

(DAYS) 

NRTS 

BASE 

DEPOT 

0.92 

2.0 

10.0 

0.88 

4.0 

13.0 

0.06 

3.0 

21.0 

0.99 

8.0 

16.7 

0.88 

3.0 

14.0 

0.35 

3.0 

17.0 

0.44 

6.0 

9.0 

0.19 

3.0 

9.0 

1.00 

0. 

11.0 

0.85 

3.0 

12.0 

0.94 

4.0 

14.0 

0.94 

3.0 

12.0 

0.19 

5.0 

14.0 

0.87 

9.0 

14.0 

0.08 

3.0 

15.0 

0.08 

4.0 

14.0 

0.36 

7.0 

22.0 

0.05 

4.0 

14.0 

0.17 

4.0 

10.0 

0.84 

3.0 

14.0 

0.43 

5.0 

12.0 

0.92 

5.0 

14.0 

0.94 

3.0 

11.0 

0.23 

5.0 

10.0 

0.85 

4.0 

8.0 

0.46 

3.0 

11.0 

0.89 

4.0 

12.0 

0.04 

4.0 

14.0 

0.17 

5.0 

9.0 

0.09 

4.0 

14.0 

0.97 

4.0 

12.0 

0.91 

5.0 

14.0 

0.93 

4.0 

12.0 

0.94 

5.0 

11.0 

0.90 

7.0 

10.0 

0.89 

4.0 

11. 0 

0.12 

3.0 

14.0 

0.57 

4.0 

12.0 

0.91 

5.0 

12.0 

0.05 

4.0 

14.0 

0.17 

4.0 

16.0 

0.25 

4.0 

13.0 

0.33 

5.0 

14.0 

0.12 

3.0 

10.0 

0.04 

4.0 

12.0 

0.05 

4.0 

3.0 

0.02 

3.0 

14.0 

0.04 

4.0 

14.0 

0.88 

4.0 

11.0 

0.93 

7.0 

15.0 
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NSN 

REMOVAL 

RATE 

QPA 

FAR 

5841000656743 

.00935 

1 

1.0 

6615000228011 

.00271 

1 

1.0 

6615000593851 

.00608 

1 

1.0 

5895008100140 

.00909 

1 

1.0 

6720001034963 

.00066 

1 

0.5 

6680006518045 

.00332 

1 

1.0 

5895009190410 

.00163 

2 

0.1 

5895007908764 

.00558 

1 

1.0 

5895008100189 

.00973 

1 

1.0 

2910010092822YP 

.00164 

1 

0.5 

1630008521432 

.00068 

2 

1.0 

66100094531 12BF 

.00352 

1 

1.0 

INITIAL 

RESUPPLY  TIMES 

INITIAL 

NO.  IN 

BASE 

(DAYS) 

STOCK 

RESUPPLY 

NRTS 

BASE 

DEPOT 

18 

2.173 

0.09 

4.0 

14.0 

11 

0.946 

0.25 

4.0 

11.0 

26 

4.642 

0.92 

4.0 

14.0 

19 

2.309 

0.06 

4.0 

17.0 

10 

0.234 

0.19 

5.0 

40.0 

18 

2.510 

0.94 

6.0 

11.0 

22 

0.069 

0.11 

2.0 

22.0 

18 

1.397 

0.08 

4.0 

16.0 

24 

2.854 

0.08 

4.0 

15.0 

16 

4.726 

0.96 

7.0 

15.3 

58 

0.741 

0.02 

10.0 

28.0 

42 

20.708 

0.95 

3.0 

13.0 
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APPENDIX  C 


PROGRAM  LISTINGS 

This  appendix  provides  listings  of  the  FORTRAN  programs  described  below. 

Sortie-Generation  Model  (SGM) 

The  SGM  consists  of  a  main  program  and  39  subroutines,  functions, 
and  block  data  subprograms.  The  main  program  is  listed  first.  The  subpro¬ 
grams,  each  beginning  on  a  new  page,  are  then  listed  in  alphabetical  order. 

Scenario  Input  Program 

This  program  provides  an  interactive  interface  to  the  SGM  and  is 
used  to  prepare  a  scenario  parameter  input  file  for  an  SGM  run.  The  main 
program  is  listed  first  followed  by  the  subprograms. 

Plot  Program 

This  program  provides  the  graphs  of  SGM  sortie  results  which  appear 
in  every  SGM  run.  It  produces  graphs  of  the  average  sorties  per  aircraft  per 
day  and  also  total  sorties  flown  per  day. 
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SGM  PROGRAM 


FflBCEDING  PAGE  BLANK-ImOT  Fli* 
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CiHHHHHHHHHt  0S29 / N232D /  SGH /  N£WSGM 

C***  MAIN  PROGRAM 
** 

C++  MAIN  -  MAIN  PROGRAM  FOR  LMI  SORTIE-»3ENERATION  MODEL  (SGM). 
C*#*  THIS  IS  THE  MAIN  PROGRAM  FOR  THE  LMI  SORTIE  GENERATION 
C***  MODEL  (SGM).  A  LIST  Of  AU.  COMMON  BLOCKS  AND  PARAMETER  STATEMENTS 
C***  USED  IN  THE  MODEL  IS  PROVIDED  AT  THE  BEGINNING  OF  THIS  MAIN 
C***  PROGRAM.  THE  PROCESSING  SEQUENCE  IS  AS  FOLLOWS  -  FIRST, 

ALL  INPUTS  ARE  LOADED  WD  NECESSARY  INITIALIZATION  PERFORMED. 

C***  THEN,  THE  ACTUAL  SIMULATION  IS  PERFORMED,  AND  FINALLY  TIE  RUN 
C***  RESULTS  ARE  PRINTED  TO  THE  STANDARD  OUTPUT  FILE. 

C*« 

Cm*  INPUT  FILES  - 

CM*  01  -  SCENARIO  INPUT  PARAMETERS 

Cm*  02  -  WORK  CENTER  INPUT  DATA 

Cm*  03  -  SCRATCH  FILE  USED  FOR  DAILY  SCENARIO  PARAMETERS 

Cm*  04  -  SPARES  INPUT  DATA 

C*m  OUTPUT  FILES  - 

CM*  06  -  STANDARD  OUTPUT  FILE  (RUN  RESULTS) 

Cm*  07  -  SORTIE  RESULTS  FOR  PLOT  PROGRAM 
CM*  PARAMETERS  - 
Cm* 

Cm* 

Cm* 

Cm* 

Cm* 

C*M 
Cm* 

C*m 
C*m 
C*M 
Cm* 

Cm* 

Cm* 

Cm* 

Cm* 

Cm* 

Cm* 

Cm* 

C*** 

Cm* 

Cm* 

C*m 
Cm* 

Cm* 

Cm* 

Cm* 

Cm* 

Cm* 


-  MAXIMUM  ALLOWABLE  UE-STRENGTH  <#  AIRCRAFT) 

-  MAXIMUM  ALLOWABLE  NUMBER  OF  WORK  CENTERS 

-  NUMBER  OF  BITS  IN  A  COMPUTER  WORD  ON  THIS  SYSTEM 

-  MAXIMUM  ALLOWABLE  NUMBER  OF  PART-TYPES. 

-  MAXIMUM  ALLOWABLE  LENGTH  (IN  COMPUTER  WORDS)  OF 
AIRCRAFT  BIT-VECTORS.  A  BIT-VECTOR  MUST  BE  AT 
LEAST  "MAXAC"  BITS  LONG,  PLUS  W  EXTRA  WORD 
TO  STORE  THE  AIRCRAFT  COUNT  FOR  THAT  VECTOR. 

ICNCE,  MAXVEC  IS  A  FUNCTION  OF  MAXAC  AND  MAXBIT. 

-  MAXIMUM  ALLOWABLE  NUMBER  OF  FLYING  DAYS. 

-  MAXIMUM  ALLOWABLE  NUMBER  OF  FLYING  CYCLES  PER  DAY. 

-  CURRENT  NUMBER  OF  STATISTICS  COLLECTED  PER 
FLYING  CYCLE  PER  DAY. 

-  LENGTH  OF  BIT-FIELD  USED  IN  THE  WORK-CENTER 
REPAIR  LISTS.  THIS  BIT-FIELD  MUST  BE  LARGE  ENOUGH 
TO  HOLD  (MAXAC-1),  THE  TAIL  NUMBER  OF  THE 
LAST  AIRCRAFT.  THUS,  (2**LFLD>  MIST  BE  GREATER 
THAN  OR  EQUAL  TO  MAXAC. 

-  MJMBER  OF  BIT-FIELDS  PER  COMPUTER  WORD  FOR  THESE 
WORK-CENTER  LISTS. THUS  NPERWRD  IS  A  FUNCTION 
OF  LFLD  AND  MAXBIT. 

-  LENGTH  (IN  COMPUTER  WORDS)  OF  THE  WORK-CENTER  LISTS. 
MXINWC  IS  COMPUTED  SC  THAT  TIE  MAXIMUM  ALLOWABLE 
NUMBER  OF  BIT  FIELDS  IN  A  WORK -CENTER  LIST  IS 
EQUAL  TO  MAXAC,  THE  MXIMUM  NUMBER  OF  AIRCRAFT. 

-  FILE  NUMBER  OF  SCENARIO  ItfVT  FILE 

-  FILE  NUMBER  OF  WORK  CENTER  INPUT  FILE 

-  FILE  NUMBER  OF  SPARES  INPUT  FILE 

C***********  ****♦♦****««***«♦***♦ **************** ******* ************** 

C — 

PARAMETER  IWXAC=108, MAXWC=25, MAXBIT=36, HAXPRT=304, 


MAXAC 

MXWC 

MAXBIT 

mm 

MAXVEC 


MAXDAY 

HAXCYC 

MAXSTAT 

LFLD 


NPERWRD 


MXINWC 


IFSCEN 

IFWC 

IFPRT 
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&  MAXVEC=2+(MAXAC-1)/MAXBIT 

PARAMETER  LFU)=7,NPERWD^XBIT/LaD,miNUC=l+(l1AXAC-l)/NPERWRD 
PARAtETER  MAXDAY=30,MAXCYC=10,fttXSTAT=5 
PARMETER  IFSCEN=0l.  IFWC=02,  IFPRT=04 
LOGICAL  INFHAN,  IHTART 

C— 

C — /ACSTATE/  -  AIRCRAFT  BIT-VECTORS. 

COMMON  /ACSTATE/  LENGTH,  NACVC < MAX VEC),  IFLYVC(fWXVEC), 

L  MAINVC(MAXVEC),  NORSVC(MAXVEC),  LOSTVC < MAXVEC > 

7ALIASC/  -  TABLES  F OR  PtfIT-TYPE  SAMPLING, 

COMMON  /ALIASCV  FRACT(MAXPRT),  lALIAS(MAXPRT),  FPARTS 

-/BITS/  -  BIT  MANIPULATION  TABLES. 

COMMON  /BITS/  MASK0,MASK(35),  MLEFT0,MSKLFT(36), 

I2C0UT,  IC0UNK63) 

■/DEMAND/  -  MEAN  AND  VARIANCE  FOR  TOTAL  PWT  DEMANDS. 

COMMON  /DEMAND/  ACHEAN,  ACVAR,  NPERAC 

■/INPUT/  -  FLYING  SCENARIO  PARAMETERS. 

COMMON  /INPUT/  INITUE,  NAC,  PATTRIT,  IRES,  RNMCft,  INFPART , 
MAXFLY(MAXCYC),  INFMAN,  ISCALE,  IAUGWT 

-/PARTS/  -  PART  CHARACTERISTICS. 

COMMON  /PARTS/  NP6RTS,  IQPA(MAXPRT),  NBACXO(MAXPRT), 

BRPRATE(MAXPRT),  DRPRATE(MAXPRT),  INITS.J(MAXPRT), 
RESUPP(MAXPRT),  BNRTS(MAXPRT),  NBASE ( MAXPRT ) , 
NDEPOT(MAXPRT) 

■/RSEED/  -  SEED  FOR  RANDOM  NUNBER  GENERATOR. 

COMMON  /RSEED/  SEED 

/STATS/  -  CUMULATIVE  STATISTICS  FOR  SIMULATION  RESILTS. 

COMMON  /STATS/  EXPECT ( MAXSTAT , MAXCYC, MAXDAY ) , 

NRESRV,  IZDAY,ITOTRES(MAXDAY),  LOSSTOT 

•/TIME/  -  FLYING  CYCLE  TIMES  AND  SIMULATION  PARAMETERS. 

COMMON  /TIME/  PRERITE,  SORTLGTM,  WAITCYC,  TYMNITE, 

NSIM,  ISIH,  NUMDAY,  IDAY,  NCYCLES,  ICYCLE 

7HCBRK7  -  WORK  CENTER  BREAK  RATES. 

COMMON  /WCBRK/  PACBRK,  PACGABT,  PBRKWC(MAXWC),  PWCPROD, 
PBRKSEQ(2,MAXWC),  INDXWC(MAXWC) 

/WCINPUT/  -  WORK  CENTER  IffUTS. 

COMMON  /WCINPUT/  NWC,  NCREWS(fWXUC) ,  SRATE(MAXWC) 

/WCMAINT/  -  AIRCRAFT  WORK  CENTER  LISTS. 
cornu  /WCMAINT/  LISTRP(MXINWC,fttXWC),  INREPR(fWXWC) 

•COLLECT  STARTING  CPU-TIME  AND  CORE-MEMORY  REQUIREMENT 
CALL  PTIME(START) 
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c — 
c— 


CALL  MEMSIZ(KSIZE) 


♦LOAD  MD  INITIALIZE  SCENARIO,  WORK  CENTER  AND  PARTS  DATA 
CALL  INIT ( IFSCEN, IFWC, IFPRT) 

♦RUN  TIC  ACTUAL  SIMULATION 
CALL  SIMULA 


C — 

C —  ♦PRINT-OUT  THE  RESULTS  OF  T>€  SIMULATION 
CALL  PRINTO 


C — 


C —  ♦PRINT  MEMORY  AND  CPU-TIME  USED 
C«1  PTJME(FINISH) 


URITE(6>9001) <FINISH-START)*60.,KSIZE 

C — 


STOP 

9001  FORMAT ( // » “0CP1J  TIME  USED  =‘,F<,.2,*  MIN',/, 
&  ‘OftMORY  USED  =*,IS,*  K  WORDS’) 

END 
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C++  ALIAS  -  INITIALIZE  TABLES  NEEDED  FOR  "ALIAS"  SAMPLING  METHOD. 
Cm*  ALIAS  IS  A  FORTRAN  SUBROUTINE  WHICH  INITIALIZES  THE 
Cm*  TABLES  USED  BY  TK  ALIAS  METHOD  FOR  GENERATING  RANDOM 
C«-»+  VARIABLES  FROM  A  DISCRETE  DISTRIBUTION.  SEE  -  "ON  THE 
C++*  ALIAS  METHOD  FOR  GENERATING  RANDOM  VARIABLES  FROM  A  DISCRETE 
Cm*  DISTRIBUTION*  IN  Tit  AMERICAN  STATISTICIAN,  NOV  1979,  VOL  33, 
Cm*  NO  4,  PP  214-218,  FOR  A  DESCRIPTION  OF  THIS  METHOD  AND  TI€ 

Cm*  ALGORITHM  USED  IN  THIS  ROUTINE  TO  CREATE  THE  NECESSARY  TABLES. 
Cm*  TWO  TABLES  ARE  fCEDED  FOR  THIS  METHOD  -  A  TABLE  OF 
Cm*  FRACTIONAL  CUTOFF  VALUES  AND  ANOTHER  FOR  THE  CORRESPONDING 
C+*#  ALIASES.  THE  PROCEDURE  USED  TO  GENERATE  TItSE  TABLES  IS  A 
C***  SINGLE-PASS,  L1NKED-LIST  PROCEDURE. 

Cm* 

CM*  INPUT  - 

Cm*  N  -  NIW5ER  OF  MASS  POINTS  OF  THE  DISCRETE  DISTRIBUTION 

Cm*  MUCH  IS  BEING  SAMPLED. 

C+*+  INPUT/OUTPUT  - 

C«*  FRACT(I)  -  UPON  INP.IT,  FRACT(I)  IS  T>€  PROBABILITY 
C+m  DISTRIBUTION  OF  A  RANDOM  VARIABLE,  R. 

C*m  FRACT(  I  IMPROBABILITY!  R  =  I),  1=1, 2,.  ..,N  . 

Cm*  UPON  OUTPUT  FROM  THIS  SUMKJTINE,  FRACT  CONTAINS 

C+m  THE  TABLE  OF  FRACTIONAL  CUTOFF  VALUES  USED  BY  THE 

C*«  ALIAS  ftTHOD. 

Cm*  OUTPUT  - 

Cm*  lALIAS(I)  -  TABLE  OF  ALIASES  USED  BY  ALIAS  METHOD.  1=1 . N 


DIMENSION  FRACT(N),  IALIAS(N) 

♦INITIALIZE  LIST  HEADERS  in  NO  ENTRIES 
LHEAD  =  0 
MHEAD  =  0 

♦DO  FORIEACH  POINT  OF  THE  PROBABILITY  DISTRIBUTION) 
FLOATN  =  FLOAT(N) 

DO  600  1=1, N 

♦INITIALIZE  FRACTIONAL  CUTOFF  VALUE  FOR  THIS  POINT 
FRACT(I)  =  FLOATN  *  FRACT ( I ) 

*IF (THIS  INDEX  BELONGS  IN  THE  "LESS"  LIST,  I.E.  THOSE 
INDICES  FOR  WHICH  FRACT ( I )  IS  LESS  THAN  1.01THEN 
IF(FRACT!Ii.G£.1.0>  GO  TO  100 

♦ADD  THIS  INDEX  TO  )£AD  Cf  "LESS"  LIST 
I ALIAS! I )  =  LHEAD 
LHEAD  =  I 

♦ELSE  (INDEX  BELONGS  IN  "MORE"  LIST) 

GO  TO  200 


C-8 


CONTINUE 


100 

c — 

C —  +ABD  INDEX  TO  HEAD  OF  “MORE"  LIST 

IALIAS(l)  =  MHEAD 
M9EAD  =  I 

C — 

C —  ♦END  IF  (WHICH  LIST  TEST) 

200  CONTINUE 

C — 

C—  *D0  WHILE (BOTH  LISTS  ARE  NOT  EMPTY) 

300  CONTINUE 

IF(MHEAD.EQ.O)  GO  TO  500 
IF(UEAD.EQ.O)  GO  TO  500 

C— 

C —  ♦REMOVE  NEXT  INDEX  FROM  ‘LESS*  LIST 

LNEXT  =  LHEAD 
LHEAD  =  IALIASdJEAD) 

C — 

C —  ♦SET  ALIAS  FOR  THIS  INDEX  TO  NEXT  ENTRY  IN  "MORE"  LIST 

lALIAS(LNEXT)  =  MHEAD 

C— 

C —  ♦UPDATE  CUTOFF  VALUE  FOR  THIS  "MORE”  ENTRY 

FRACT(WEAD)  =  FRACT(MHEAO)  -  (l.O-FRACT(LNEXT)) 

C —  ♦IFCTHIS  INDEX  NO  LONGER  BELONGS  IN  "MORE"  LISTXTHEN 

IF (FRACT (MHEAD). GE.  1.0)  GO  TO  400 

C —  ♦REMOVE  INDEX  ROM  "MORE"  LIST  AND  ADD  IT  TO  ’LESS* 

LNEXT  =  MHEAD 

MHEAD  =  IALIAS(MHEAD) 

lALIAS(LNEXT)  =  LHEAD 

LHEAD  =  LNEXT 

C— 

C —  ♦END  IF  (SWITCH  LISTS  TEST! 

400  CONTINUE 

C — 

C —  ♦END  DO  (LISTS  LOOP) 

GO  TO  300 
500  CONTINUE 

C —  *END  DO  (INDEX  LOOP) 

600  CONTINUE 

C — 

C —  ♦ADJUST  FRACT  ( I )  TO  SAVE  TIME  IN  MNOM  SUBROUT  HE. 

DO  700  1=1. N 

FRACT ( I )  =  FRACT! I )  +  (1-1) 

700  CONTINUE 

C— 

RETURN 

END 
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SUBROUTINE  ATTRITl PLOST, NTOFLY , IFLYVC, LOSTVC . MOST ) 

C++  ATTRIT  -  SIMULATE  ATTRITION  PROCESS  DURING  A  SORTIE  PERIOD. 
C**+  ATTRIT  IS  A  FORTRAN  SUBROUTINE  WHICH  SIMULATES  THE 
C***  EFFECTS  OF  ATTRITION  DURING  A  SORTIE.  ATTRIT  DRAWS  A  RANDOM 
C***  SAfPLE  FROM  A  BINOMIAL  DISTRIBUTION  BASED  ON  THE  NUMBER  OF 
C+*+  AIRCRAFT  FLYING  THE  SORTIE  AND  THE  PROBABILITY  OF  ATTRITION 
C++*  GIVEN  AN  AIRCRAFT  FLIES  A  SORTIE.  ATTRIT  THEN  SELECTS  THE 
C**+  RIGHTMOST  AIRCRAFT  FROM  THE  CURRENT  FLYABLE  AIRCRAFT  VECTOR  AS 
C»*+  THE  AIRCRAFT  WHICH  WERE  ATTRITED.  THE  RIGHTMOST  ONES  ARE  SELECTED 


C++*  TO  SPEED  UP  COMPUTATION  IN  OTHER  ROUTINES. 

C++* 


C++*  INPUT  - 

C++*  PLOST  -  PROBABILITY  THAT  AN  AIRCRAFT  ATTRITS  GIVEN  THAT  IT 
C++*  FLIES  A  SORTIE. 


C**+  INPUT/OUTPUT  - 

C++*  NTOFLY  -  NO.  OF  A/C  TO  FLY  THIS  PERIOD. 

C++*  IRYVC  -  FLYABLE  AIRCRAFT  STATUS  VECTOR.  INDICATES  THOSE 

C**+  AIRCRAFT  WHICH  ARE  STILL  FLYABLE  DURING  THE  CURRENT 


C++*  FLYING  CYCLE.  I.E.  THOSE  AIRCRAFT  WHICH  WERE  FLYABLE 

C++*  AT  THE  START  OF  PREFLIGHT  AND  HAVE  NOT  GROUND-ABORTED. 


C++* 

C++* 

C++* 

C++* 

C++* 

C++* 

C++* 

C+*+ 

C++*  LOSTVC 
C++* 

C**+ 

C++* 

C**+ 

C++* 

C++* 


ATTRITED,  OR  BROKEN  THUS  FAR  IN  THE  CYCLE. 

THE  FIRST  WORD,  IFLYVCU),  CONTAINS  THE  TOTAL 
NUMBER  OF  AIRCRAFT  STILL  FLYABLE  THUS  FAR  IN 
THE  CURRENT  FLYING  CYCLE.  THE  REMAINDER  OF  THE 
ARRAY  IS  A  BIT  VECTOR  WITH  EACH  BIT  REPRESENTING 
AN  AIRCRAFT.  A  1-BIT  INDICATES  THE  AIRCRAFT  IS 
STILL  FLYABLE.  NOTE  THAT  IFLYVCU )  ALSO  INDICATES 
THE  NUMBER  OF  1-BITS  IN  THIS  BIT  VECTOR. 

-  ATTRITED  AIRCRAFT  VECTOR.  INDICATES  THOSE  AIR¬ 
CRAFT  WHICH  HAVE  ATTRITED  THUS  FAR  IN  THE  SIMULATION 
AND  NOT  BEEN  REPLACED  BY  RESERVES.  THE  FIRST  WORD, 
LOSTVC! 1),  CONTAINS  THE  TOTAL  NUMBER  OF  AIRCRAFT 
WHICH  HAVE  BEEN  LOST  AND  NOT  REPLACED  BY  RESERVES. 
TEE  REMAINDER  CF  THE  ARRAY  IS  A  BIT  VECTOR  WITH 
EACH  BIT  REPRESENTING  AN  AIRCRAFT.  A  1-BIT  INDICATES 


C**+  THE  AIRCRAFT  HAS  BEEN  ATTRITTED.  NOTE  THAT 

C**+  LOSTVC! 1)  ALSO  INDICATES  THE  NUMBER  OF  1-BITS  IN 

C**+  THIS  BIT  VECTOR. 


C**»  OUTPUT  - 

C++*  MOST  -  NUMBER  OF  AIRCRAFT  LOST  ON  THIS  SORTIE 

C++++++++++++++++++++++ ++♦++++*++++*+♦++++++*++++**+♦++++++++++++*++** 


c — 

C —  * DETERMINE  M91BER  OF  ATTRITIONS  BY  SAMPLING  FROM  THE 

C —  APPROPRIATE  BINOMIAL  DISTRIBUTION 

MOST  =  NBINOMIPLOST,  NTOFLY) 

C —  *IF(ANY  AIRCRAFT  WERE  ATTRITED1THEN 

IF ( NLOST  .EG.  0)  GO  TO  1000 

C — 

C —  +REDUCE  NO.  OF  A/C  CAPABLE  OF  FLYING  THIS  FERIOD 

NTOFLY  =  NTOFLY  -  MOST 
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♦TRANSFER  RIGHTMOST  AIRCRAFT  FROM  FLY ABLE  AIRCRAFT 
VECTOR  TO  THE  ATTRITED  AIRCRAFT  VECTOR 
CALL  TBITSR(NLOST,IFLYVC,LOSTVC> 

—  ♦Off)  IF  (ZERO  ATTRITIONS  TEST) 

1000  CONTINLE 

RETURN 

END 
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C++  BLOCK  DATA  -  INITIALIZES  COMMON  TABLES  FOR  BIT  MMIPULATIONS. 

Cm  THIS  SUBPROGRAM  INITIALIZES  TIC  TABLES  CONTAINED  IN 
Cm  TIC  /BIT/  COMMON  BLOCK.  THIS  INITIALIZATION  IS  DONE 
Cm  DURING  COMPILATION!  THE  SUBPROGRAM  CONTAINS  NO 
Cm  EXECUTABLE  STATEMENTS.  TIC  /BIT/  C0H10N  BLOCK  CONTAINS 
Cm  THREE  SETS  OF  TABLES  WHICH  ARE  USED  FOR  ACCESSING  BITS  AND 
Cm  BIT  FIELDS  WITHIN  A  COfUTER  WORD.  NOTE  THAT  THE  FOLLOWING 
Cm  PROGRAMMING  TECHNIQUE  IS  USED  IN  EACH  OF  THESE  TABLES  -  AN 
Cm  EXTRA  WORD  IS  PLACED  BEFORE  THE  BEGINNING  OF  EACH  TABLE.  THIS 
Cm  EXTRA  WORD  REPRESENTS  TABLEIO).  I.E.,  THE  OTH  IWJEXED  WORD  IN 
Cm  TfC  TABLE.  THUS  ,  THE  TABLE  IS  ACTUALLY  INDEXED  0,1,2,... 

Cm  THIS  TECHNIQUE  OF  REFERENCING  THE  OTH  WORD  OF  AN  ARRAY  IS 
Cm  NOT  STANDARD  FORTRAN  AW)  MAY  NOT  WORK  WITH  OTHER  FORTRAN  COMPILERS. 
Cm  THESE  TABLES  REMAIN  FIXED  THROUGHOUT  THE  SIMULATION. 

Cm 

Cm  COMMON  TABLES  - 


Cm  MASK! I)  -  1=0,1,..., 35.  MASK  IS  THE  BIT  ACCESSING  TABLE 

Cm  USED  IN  T¥E  SGM.  THE  BITS  IN  THE  COHHJTER  WORD 

Cm  ARE  NUMBERED,  LEFT  TO  RIGHT,  0,1, 2,..., 35, 

Cm  AND  MASK)  I)  HAS  A  1-BIT  IN  THE  ITH  POSITION  AND 

Cm  ZEROES  ELSEWHERE.  THIS  TABLE  IS  USED  TO  MSK-OFF 

Cm  THE  ITH  BIT  IN  A  COMPUTER  WORD. 

Cm  MSKLFT(I)  -  1=0,1,..., 36  .  MSKLFT  IS  USED  TO  MASK-OFF  THE 
Cm  LEFTMOST  BITS  IN  A  COMPUTER  WORD.  THE  FIRST 

Cm  (LEFTMOST)  I  BITS  OF  MSKLFT ( I  >  ARE  1-BITS 

Cm  AND  THE  REMAINING  BITS  ARE  ZERO.  THUS,  FOR 

Cm  EXAHM-E,  HSKLFT(O)  WOULD  BE  ALL  OS  AND 

Cm  MSKLFN36)  WOULD  BE  ALL  IS. 

Cm  ICOUNT(I)  -  1=0,1,..., 63.  THIS  IS  A  TABLE  WHICH  IS  USED  TO 

Cm  COUNT  THE  NUMBER  OF  1-BITS  IN  ANY  GIVEN  6-BIT 

Cm  FIELD.  IN  A  6-BIT  FIELD,  T)€RE  ffS.  2«6  =  64 

Cm  POSSIBLE  BIT  PATTERNS  -  THE  BINARY 

Cm  REPRESENTATIONS  OF  THE  INTEGERS  0,1, 2,... 63. 

Cm  ICOUNT(I)  CONTAINS  THE  NUMBER  OF  1-BITS  IN  THE 

Cm  BINARY  REPRESENTATION  OF  I,  E.G.,  IC0UNT(3>=2  . 

Cm  THIS  TABLE  IS  USEFUL  IN  COUNTING  THE  NUMBER  OF 

Cm  1-BITS  REPRESENTING  AIRCJWT  IN  T»€  VARIOUS 

Cm  AIRCRAFT-STATUS  BIT-VECTORS.  THIS  TECHNIQUE 

Cm  IS  MUCH  FASTER  THAN  A  BIT-BY-BIT  COUNT. 

C»H»iiiiiiimHwmm»H«mHH»»HHHnmm»min(imi 
C— 

COmON  /BITS/  MASK0,HASK(35),  MLEFTO, MSKLFT (36), 

&  IZCOUT,ICOUNT(63) 

C — 

DATA  MASKO/0400000000000  / 

DATA  MASK/  0200000000000,  0100000000000, 

St  040000000000  ,  020000000000  ,  OlOOOOOOOOOO  , 

St  04000000000  ,  02000000000  ,  01000000000  , 

St  0400000000  ,  0200000000  ,  0100000000  , 

St  040000000  .  020000000  ,  010000000 


sf  ft*  *• 


Sc 

04000000 

,  02000000 

,  01000000 

4 

0400000 

,  0200000 

,  0100000 

Si 

040000 

,  020000 

,  010000 

Si 

04000 

,  02000 

,  01000 

Sc 

0400 

,  0200 

,  0100 

Sc 

040 

,  020 

,  010 

Sc 

04 

,  02 

,  01 

c— 

DATA  NLEFTO/O/ 

DATA  HSKLFT/0400000000000,  0600000000000,  0700000000000, 
Sc  0740000000000,  0760000000000,  0770000000000, 

0774000000000,  0776000000000,  0777000000000, 
0777400000000,  0777600000000,  0777700000000, 
0777740000000,  0777760000000,  0777770000000, 
S.  0777774000000,  0777776000000,  0777777000000, 

Sc  0777777400000,  0777777600000,  0777777700000, 

Sc  0777777740000,  0777777760000,  0777777770000, 

l  0777777774000,  0777777776000,  0777777777000, 

&  0777777777400,  0777777777600,  0777777777700. 

Sc  0777777777740,  0777777777760, 

Sc  0777777777774,  07777777/7776, 

C — 


DATA  IZCOUT/O/ 
DATA  I COUNT/ 

(c 

Sc 

Sc 

Sc 

Sc 

Sc 

c — 

END 


1,  1,  2,  1,  2, 

3,  2,  3,  3,  4, 

3,  3,  4,  2,  3c 

5,  1,  2,  2,  3 

3,  3,  4,  3,  4c 

4,  3,  4,  4,  5, 

5,  5,  6  / 


2,  3,  1,  2,  2, 

1,  2,  2,  3,  2, 

3,  4,  3,  4,  4, 

2,  3,  3,  4,  2* 

4,  5,  2,  3,  3, 

3,  4,  4,  5,  4, 
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SUBROUTINE  BREAK (PBREAK.PBRKSEQ, INDXUC.NTOFLV. IFIYVC.MORSVC) 

C++  BREAK  -  SIMULATE  AIRCRAFT  BRE/KS  AFTER  A  SORTIE. 

Cm  BREAK  IS  A  FORTRAN  SUBROUTINE  WHICH  SIMULATES  TIC  PROCESS 
Cm  OF  AIRCRAFT  BREAKING  UPON  RETWINING  FROM  A  SORTIE.  GIVEN  A  NUMBER 
C++*  OF  FlYABLE  AIRCRAFT  AND  THE  OVERALL  BREAK  RATE.  THIS  ROUTIIE  FIRST 
Cm  DETERMINES  THE  NUMBER  OF  AIRCRAFT  WHICH  BROKE.  IT  THEN  DETERMINES 
Cm  THE  NUMBER  AND  DISTRIBUTION  OF  PARTS  DEMANDS  RESULTING  FROM  THESE 
Cm  BREAKS.  THEN  ASSUMING  IMMEDIATE  AND  MAXIMUM  CANNABILIZATION.  THE 
Cm  NUMBER  OF  NORS  AIRCRAFT  AMONG  T>£SE  BROKEN  AIRCRAFT  IS  DETERMINED. 
Cm  THOSE  AIRCRAFT  WHICH  ARE  NOT  NORS  ARE  PROBABILISTICALLY  BROKEN 
Cm  DIRECTLY  INTO  THE  VARIOUS  WORKCENTERS. 


Cm 


Cm  INPUT  - 

Cm  PBREAK  -  PROBABILITY  THAT  A  FLYABLE  AIRCRAFT  BREAKS 
Cm  INTO  AT  LEAST  ONE  WORKCENTER  UPON  RETURNING 

Cm  FROM  A  SORTIE. 

Cm  PBRKSEQ  -  2-DIMENSIONAL  ARRAY  USED  TO  DETERMIIC  THE 
Cm  DISTRIBUTION  OF  ABORTS  INTO  THE  VARIOUS 

Cm  WORKCENTERS. 

Cm  INDXWC  -  AN  INDEX  ARRAY  USED  TO  DETERMINE  THE  DISTRIBUTION 
Cm  OF  BREAKS  INTO  THE  VARIOUS  WORK  CENTERS. 


Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

C+** 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 


INPUT/OUTPUT  - 

NTOFLY  -  NO.  OF  A/C  TO  FLY  THIS  PERIOD. 

IFLYVC  -  aYABLE  AIRCRAFT  STATUS  VECTOR.  INDICATES  THOSE 

AIRCRAFT  WHICH  ARE  STILL  aYABLE  DURING  THE  CURRENT 
aYING  CYCLE.  I.E.  THOSE  AIRCRAFT  WHICH  WERE  aYABLE 
AT  THE  START  OF  PREaiGHT  AND  HAVE  NOT  GROUND-ABORTED 
ATTRITED,  OR  BROKEN  THUS  FAR  IN  THE  CYCLE. 

THE  FIRST  WORD.  laYVC(i),  CONTAINS  THE  TOTAL 
NUMBER  OF  AIRCRAFT  STILL  aYABLE  THUS  FAR  IN 
THE  CURRENT  aYING  CYCLE.  THE  REMINDER  OF  THE 
ARRAY  IS  A  BIT  VECTOR  WITH  EACH  BIT  REPRESENTING 
AN  AIRCRAFT.  A  1-BIT  INDICATES  THE  AIRCRAFT  IS 
STILL  aYABLE.  NOTE  THAT  IFLYVC(l)  ALSO  INDICATES 
THE  NUMBER  OF  1-BITS  IN  THIS  BIT  VECTOR. 

ICffSVC  -  NORS  AIRCRAFT  STATUS  VECTOR.  INDICATES  THOSE 

AIRCRAFT  WHICH  ARE  NORS  DUE  TO  UNAVAILABLE  PARTS. 

THE  FIRST  WORD.  NORSVC(l),  CONTAINS  TI€  TOT#. 

NUMBER  OF  1-BITS  IN  THE  NORS  STATUS  VECTOR. 

THE  REMINDER  OF  THE  ARRAY  IS  A  BIT  STRING  WITH 
EACH  BIT  REPRESENTING  AN  AIRCRAFT.  A  1  INDICATES 
THE  AIRCRAFT  IS  NORS.  NOTE  TMT  N0RSVCI1)  ALSO 
INDICATES  THE  NUMBER  OF  1-BITS  IN  THIS  BIT  STRING. 


Cnn«twnimimiH>HnmnmHHm»Himnimm«innn 


C— 

DIMENSION  NORSVC(l) 

C— 

C —  ♦IFCTHERE  ARE  STILL  ANY  aYABLE  AIRCRAFT1THEN 

IF(NTOaY.EQ.O)  GO  TO  4000 


C— 

c — 


♦DETERMINE  NUMBER  OF  AIRCRAFT  BREAKING  INTO  WORKCENTERS 


o  o  o  <_>  oooo  u  o  u  o  oo  oo  ooo  u  u  u  u  oo 


C—  BY  SAMPLING  FROM  THE  APPROPRIATE  BINOMIAL  DISTRIBUTION 

NTOTBK  =  NBI NON (PBREAKi NTOFLY) 

—  ♦IF! THERE  ARE  ANY  BROKEN  AIRCRAFTJTHEN 

IF ( NTOTBK. EQ.O)  GO  TO  3000 

—  ♦REDUCE  NO.  OF  A/C  CAPABLE  OF  FLYING  THIS  PERIOD 

NTOFLY  =  NTOFLY  -  NTOTBK 

—  ♦DETERMINE  NUMBER/DISTRIBUTION  OF  PARTS  DEMAMB  RESULTING 

—  FROM  THESE  BROKEN  AIRCRAFT  AND  DETERMINE  NEW  NUMBER  OF 

—  NORS  AIRCRAFT  AFTER  IMMEDIATE  AND  MAXIMUM  CANNABILIZATION 
NEUNOR  *  NORSBK(NTOTBK.NORSVC(1)> 

NORDIF  »  NEUNOR  -  NORSVC(l) 

—  ♦ IF (NOT  ALL  THE  BROKEN  AIRCRAFT  ARE  N0RS)THEN 

IF(NORDIF.GE.NTOTBK)  GO  TO  1000 

—  ♦BREAK  THE  LEFTMOST  FLYABLE  AIRCRAFT  INTO  MAINTENANCE 

CALL  UCDIST(NTOT8K-NORDIF>PBRKS£Q. INDXUC. IFLYVC) 

—  ♦Bffi  IF  («±  NORS  TEST) 

1000  CONTINUE 

—  ♦ IF (SOME  OF  THE  BROKEN  AIRCRAFT  ARE  NORSJREN 

IF(NORDIF.LE.O)  00  TO  2000 

—  ♦TRANSFER  LEFTMOST  AIRCRAFT  FROM  FLYABLE  STARS 

—  VECTOR  TO  THE  NORS  STATUS  VECTOR 
CALL  TBITSL(NORDIF) IFLYVC. NORSVC) 

—  *END  IF  (NONZERO  NORS  TEST) 

2000  CONTINUE 

—  »Qffl  IF  (ZERO  BREAKS  TEST) 

3000  CONTINUE 

—  *£ND  IF  (ZERO  FLYABLE  AIRCRAFT  TEST) 

4000  CONTINUE 

C— 

RETURN 

END 


015 
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SUBROUTINE  CR£SERV!IAUGMNT,LOSTVC, NRESRV, MC> 

. . . 

C++  CRESERV  -  COH1IT  RESERVE  AIRCRAFT. 

C*«  CRESERV  IS  A  FORTRAN  SUBROUTINE  WHICH  WILL  ALLttATE 
C++*  RESERVE  AIRCRAFT  TO  REPLACE  THOSE  AIRCRAFT  WHICH  HAVE  BEEN 
C***  LOST  DUE  TO  ATTRITION.  IF  ENOUGH  RESERVES  ARE  LEFT,  ALL  LOSSES 
C++*  ARE  REPLACED!  HENCE  THE  ATTRITION  VECTOR  IS  ZEROED  OUT.  IF 
C**«  THERE  ARE  NOT  ENOUGH  RESERVES  TO  COVER  ALL  THE  LOSSES,  THEN 
C++*  THE  ATTRITIONS  ON  THE  LEFT  OF  THE  ATTRITION  VECTOR  ARE 
C***  REPLACED.  THIS  ARBITRARY  SELECTION  HILL  KELP  TO  SPEED  UP  THE 
C**t  SELECTION  ROUTINES.  NOTE  THAT  ALL  RESERVES  ARE  ASSUMED  TO 
C***  BE  FULLY  MISSION  CAPABLE  (I.E.  FLY ABLE)  WHEN  COMMITTED. 

C+M 


CM*  INPUT  - 
Cm*  IAUGMNT 
CM* 

Cm* 

C*m 

Cm* 

Cm* 

Cm* 

Cm* 

Cm* 

Cm*  INPUT/OUTPUT 
CM*  LOSTVC 
CM* 

Cm# 

Cm* 

Cm* 

Cm* 

C#M 

C*M 

Cm* 

CM* 

CM*  NRESRV 
C*M  NAC 
Cm* 

Cm* 

Cm* 

Cm* 

Cm* 

Cm* 


FLAG  INDICATING  WHETHER  RESERVES  ARE  TO  BE  USED 
ONLY  AS  ATTRITION  FILLERS  OR  TO  AUGMENT  THE 
CURRENT  UE-STRENGTH.  IF  IAUGMNT=0,  RESERVES 
ARE  USED  ONLY  TO  REPLACE  COMBAT  LOSSES!  HENCE 
NOT  ALL  RESERVES  MAY  BE  COMMITTED  WHEN  THEY 
BECOtE  AVAILABLE.  IF  IAUGMNT=1,  ALL  RESERVES 
ARE  COMMITTED  IMMEDIATELY  UPON  BECOMING 
AVAILABLE.  THIS  FLAG  IS  A  USER-SPECIFIED  INPUT 
WHICH  REMAINS  FIXED  THROUGHOUT  THE  SIMULATION. 

ATTRITED  AIRCRAFT  VECTOR.  INDICATES  THOSE  AIR¬ 
CRAFT  WHICH  HAVE  ATTRITED  THUS  FAR  IN  THE  SIMULATION 
AND  NOT  BEEN  REPLACED  BY  RESERVES.  Tit  FIRST  WORD, 
LOSTVCU),  CONTAINS  THE  TOTAL  NUMBER  OF  AIRCRAFT 
WHICH  WVE  BEEN  LOST  AND  NOT  REPLACED  BY  RESERVES. 
TIC  REMAINDER  OF  THE  ARRAY  IS  A  BIT  VECTOR  WITH 
EACH  BIT  REPRESENTING  AN  AIRCRAFT.  A  1-BIT  INDICATES 
THE  AIRCRAFT  HAS  BEEN  ATTRITTED.  NOTE  THAT 
LOSTVC! 1)  ALSO  UffilCATES  THE  NUMBER  OF  1-BITS  IN 
THIS  BIT  VECTOR. 

NUMBER  OF  AIRCRAFT  CURRENTLY  IN  RESERVE. 

CURRENT  UE-STRENGTH.  IF  TIC  AUGMENT  FLAG 
IS  SET,  THE  RESERVES  WHICH  REMAIN  AFTER 
REPLACING  COMBAT  LOSSES  WILL  BE  USED  TO 
AUGMENT  THIS  CURRENT  UE-STRENGTH.  IF  THE 
FLAG  IS  NOT  SET  OR  THERE  ARE  NOT  ENOUGH 
RESERVES  TO  COVER  ALL  TIC  COMBAT  LOSSES,  THEN 
NAC  WILL  REMAIN  UNCHANGED. 


DIMENSION  LOSTVC! 1) 


C—  *REPLACE  AS  MANY  AIRCRAFT  LOSSES  AS  POSSIBLE 
NFILLS  =  HINO!LOSTVC!l), NRESRV) 

CALL  ZBITSL!NFILLS, LOSTVC) 

NRESRV  *  NRESRV  -  NFILLS 

C — 

C —  *IF< THERE  ARE  STILL  REMAINING  RESERVES  AND  EXCESS  RESERVES 
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w 


o  o  o  c-> 


c- 


IF ( NRESRV. LE.O) GO  TO  100 
IF<IAUGHNT.EQ,0)G0  TO  100 


ARE  TO  BE  AUGMENTED)  THEN 


C—  UNCREASE  UE  BY  AUGMENTING  REMAINING  RESERVES 
NAC  =  NAC  +  NRESRV 
CALL  UEUPDAT(NAC) 


—  *SET  REMAINING  RESERVES  TO  NONE 

NRESRV  =  0 

—  «EM)  IF  (AUGMENTATION  TEST) 

100  CONTINUE 

C — 

RETURN 

END 
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SUBROUTINE  FlYCYC 


C++  FlYCYC  -  SIMULATE  AIRCRAFT  FLYING  CYCLE. 

C++*  THIS  ROUTIJC  IS  THE  BASIC  LOGICAL  STRUCTURE  OF  THE  SCM 
C«»  SIMULATION.  THE  VARIOUS  DISCRETE  EVENTS  WHICH  CAN  OCCUR. 

C**+  GROUND-ABORTS.  AIRCRAFT  REPAIRS.  BREAKS,  ETC.,  ARE 
C***  STRUCTURED  ACCORDING  TO  A  USER-SPECIFIED  FLYING  CYCLE 
CM*  CONSISTING  OF  A  MINIMAL-RECOVERY  PERIOD,  A  SORTIE-PERIOD, 

C«*  AND  EITHER  A  WAIT  OR  AN  OVERNIGHT  PERIOD.  A  SPECIFIED  SEQUENCE 
C**+  OF  THESE  FLYING  CYCLES  COMPRISE  A  FLYING  DAY,  AND  THE 
C***  SIMULATION  CONSISTS  OF  A  SEQUENCE  OF  FLYING  DAYS. 

C»**  THE  NUMEROUS  INPUTS  AND  OUTPUTS  CF  THIS  ROUTINE  ARE 
Cm*  ALL  CONTAINED  IN  COMMON  BLOCKS.  DEFINITIONS  ARE  PROVIDED 
Cm*  IN  THE  VARIOUS  ROUTINES  CALLED  BY  FLYCYC  AW)  WILL  NOT 
C»*  BE  REPEATED  HERE. 


C — 

PARAMETER  MAXAC=108,MAXUC=25,MAX8IT=3Z>, 

&  MAXVEC=2+(MAXAC-1 ) /MAXBI T 

PARAIETER  MAXDAY=30,MAXCYC=10,MAXSTAT=5 
LOGICAL  INFMAN, ISFPART 

COMMON  /ACSTATE/  LENGTH,  NACVC(MAXVEC),  IFLYVC(HAXVEC), 

&  MAINVC(MAXVEC),  NORSVC(MAXVEC),  LOSTVC(MAXVEC) 

COrtlON  /INPUT/  INITLE,  NAC,  PATTRIT,  IRES,  RNMCM,  INFPART, 

&  MAXFLY(NAXCYC),  INFMAN,  ISCALE,  IAUGfWT 

COrtlON  /STATS/  EXPECT ( MAXSTAT , MAXCYC, MAXDAY ) , 

&  NRESRV,  IZDAY, ITOTRES(MAXDAY) ,  LOSSTOT 

COMMON  /TIME/  PREFLITE,  SORTLGTH,  WAITCYC,  TYMNITE, 

Si  NSIH,  ISIM,  NUHDAY,  IDAY,  NCYCIES,  ICYCLE 

COMMON  /WCBRK/  PACBRK,  PACGABT,  PBRKMC(MAXWC).  PWCPROD, 

Si  PBRKSEQ(2,MAXWC),  INDXUC(MAXUC) 

COrtlON  /WCINPUT/  NHC,  NCREWS(MAXHC),  SRATE(MAXWC) 

C—  «UPDATE  OVERALL  MAINTENANCE  BIT-VECTOR  FOR  THIS  FLYING  CYCLE 
CALL  MUPDATE(NWC.MAINVC) 

C — 

C —  *COMPUTE  NUMBER  OF  FULLY-MISSI0N-CAPA8LE  AIRCRAFT  AND  NUMBER 
C—  OF  AIRCRAFT  TO  SCHEDULE  FOR  NEXT  SORTIE 

C —  (A  MISSION-CAPABLE  AIRCJWT  IS  DEFINED  AS  OfC  NOT  IN 

C—  MAINTENANCE,  NORS,  OR  COMBAT  LOSS  STATES) 

DO  100  L=2,  LENGTH 

IFLYVC(L)  =  XOR  (NACVC(L),LOSTVC(L),MAINVC(L),NORSVC(L)) 
100  CONTINUE 

IFLYVC(l)  *  N1VECT  (IFLYVC) 

NTOFLY  *  MINO  (MAXFIYt ICYCLE), IFLYVC(1>) 

C— 

C—  *AIRCRAFT-REPAIR  EVENT  -  DETERMINE  AIRCRAFT  REPAIRED  IN 
C —  EACH  WORK-CENTER  DURING  MINIMAL-RECOVERY  PERIOD 

CALL  REPAIR(PREFLITE,NWC,NCREWS,SRATE) 

C— 

C —  +OROUND-ABORT  EVENT  -  DETERHIIC  NUMBER  OF  GROUND  ABORTS 
CALL  GABGRT ( PACGABT, PBRKSEQ, INDXMC.NTOFLY, IFLYVC) 
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200 


T 


♦STATISTICS  EVENT  -  UPDATE  CUMULATIVE  STATISTICS 

(STATISTICS  ARE  ALWAYS  COLLECTED  AT  THE  BEGINNING 
OF  THE  SORTIE  PERIOD.  THE  MAINTENANCE  STAT 
REFLECTS  ONLY  THOSE  AIRCRAFT  IN  MAINTENANCE  AT  THE 
START  OF  TIC  MINIMAL-RECOVERY  PERIOD  AND  DOES 
NOT  ACCOUNT  FOR  GROUND-ABORTS  OR  REPAIRS  DURING 
THIS  MINIMAL  RECOVERY  PERIOD) 

EXPECT! 1, ICYCLE, IDAY)  =  EXPECT ( 1 > ICYCLE. IDAY)  +  NTOFLY 
EXPECT (2) ICYCLE. IDAY)  =  EXP£CT(2. ICYCLE. IDAY)  +  MAINVC(l) 

EXPECT(3. ICYCLE, IDAY)  =  EXPECT! 3. ICYCLE, IDAY)  +  NORSVC(l) 

EXP£CT<4, ICYCLE. IDAY)  =  EXPECT(4, ICYCLE, IDAY)  +  LOSSTOT 
EXPECT<5, ICYCLE, IDAY)  =  EXPECTI5, ICYCLE. IDAY)  +  NRESRV 

*IF( THIS  IS  NOT  THE  LAST  CYCLE  OF  THE  LAST  DAY)THEN 
(NONE  OF  THE  FOLLOWING  WORK  WILL  AFFECT 
THE  OUTPUT  RESULTS  IF  THIS  IS  THE  LAST  SORTIE) 

IF(  ( ICYCLE.  GE.NCYCLES).  AND.  (IDAY.  GE.NUMDAYDGO  TO  400 

♦ATTRITION  EVENT  -  DETERMINE  NUMBER  OF  ATTRITED  AIRCRAFT 
CALL  ATTRITfPATTRIT, NTOFLY. IFLYVC.LOSTVC.NLOST) 

LOSSTOT  =  LOSSTOT  ♦  NLOST 

♦REPAIR  EVENT  -  DETERMINE  NUMBER  OF  AIRCRAFT  REPAIRED  IN  EACH 
WORK  CENTER  DURING  THE  SORTIE  PERIOD 
CALL  REPAIR* SORTLGTH,  NWC,  NCREWS, SRATE ) 

♦IF( IT  IS  NOT  T)€  LAST  SORTIE  OF  T)£  FLYING  DAY)THEN 
IF ( ICYCLE. EQ. NCYCLES )  GO  TO  200 

♦BREAK-EVENT  -  DETERMINE  AIRCRAFT  BREAKS  AND  PART  DEMANDS 
CALL  BREAK(PACBRK,PBRKSEQ, IMJXWC. NTOFLY, IFLYVC.NORSVC) 

♦AIRCRAFT-REPAIR  EVENT  -DETERMINE  AIRCRAFT  REPAIRED  IN 
EACH  WORK-CENTER  DURING  THE  WAIT  PERIOD 
CALL  REPAIR(WAITCYC, NWC, NCREWS, SRATE) 

♦ELSE  (THIS  IS  THE  OVERNIGHT  PERIOD) 

GO  TO  300 
CONTINUE 

♦PARTS-REPAIR  EVENT  -  DETERMINE  SPARE  PARTS  REPAIRED 
IN  THE  LAST  24-HOUR  PERIOD 
CALL  PRTREPI24. .PBRKSEQ.INDXWC.NORSVC) 

♦BREAK-EVENT  -  DETERM  I  )£  AIRCRAFT  BREAKS  AND  PMT  DEMANDS 
CALL  BREAKfPACBRK.PBRKSEQ, INDXWC, NTOFLY, IFLYVC.NORSVC) 

♦AIRCRAFT-REPAIR  EVENT  -  DETERMINE  OVERNIGHT  AIRCRAFT  REPAIRS 
CALL  REPAIR(TYMNITE, NWC, NCREWS, SRATE) 

♦COMMIT-RESERVES  EVENT  -  BRING-IN  AVAILABLE  FULLY-MISSIQN- 
CAPABLE  RESERVE  AIRCRAFT  TO  REPLACE  ANY  COMBAT  LOSSES 
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CALL  CRESERV ( IAU6MNT i LOSTVCi NRESftV i NAC ) 


—  »END  IF  (OVERNIGHT  PERIOD  TEST) 
300  CONTINUE 

—  *£ND  IF ( LAST-CYCLE-OF-LAST-DAY  TEST) 
400  CONTINUE 

C — 

RETURN 

EM) 
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SUBROUTINE  GABORT ( PABORT t PBRKSEQt INDXUC.NTOFLY, IFLYVC) 


C++  GABORT  -  SIMULATE  AIRCRAFT  GROUND-ABORT  PROCESS. 

C«*  GABORT  IS  A  FORTRAN  SUBROUTINE  WHICH  SIMULATES  THE  PROCESS 
Cm*  OF  AIRCRAFT  GROUND-ABORTING  INTO  WORKCENTERS  AT  THE  END  OF  PREFLIGHT. 
C*m  GIVEN  A  NUMBER  OF  FLYABLE  AIRCRAFT  AND  THE  OVERALL  GROUND-ABORT 
C*M  RATE,  THIS  ROUTINE  CALCULATES  THE  TOTAL  NUMBER  OF  GROUND-ABORTS, 

Cm*  AND  T)£N  DETERMINES  WHICH  WORKCENTERS  THESE  AIRCRAFT  BROKE  INTO. 

C*M 


C*m  INPUT  - 


Cm* 

PABORT 

Cm* 

Cm* 

PBRKSEQ 

Cm* 

Cm* 

Cm* 

INOXWC 

Cm* 

-  PROBABILITY  THAT  A  FLYABLE  AIRCRAFT  GROUND-ABORTS 
INTO  AT  LEAST  ONE  WORKCENTER  DURING  PREFLIGHT. 

-  2-DIMENSIONAL  ARRAY  USED  TO  DETERMINE  THE 
DISTRIBUTION  OF  ABORTS  INTO  THE  VARIOUS 
WORKCENTERS. 

-  AN  INDEX  ARRAY  USED  TO  DETERMINE  THE  DISTRIBUTION 
OF  BREAKS  INTO  T)C  VARIOUS  WORK  CENTERS. 


Cm*  INPUT/OUTPUT  - 


C*m  NTOFLY 
C*m  iaYVC 
Cm* 

C*M 

Cm* 

Cm* 

Cm* 

C*m 

Cm* 

C*m 

Cm* 

Cm* 

C*m 


-  NO.  OF  A/C  TO  FLY  THIS  PERIOD. 

-  FLYABLE  AIRCRAFT  STATUS  VECTOR.  INDICATES  THOSE 
AIRCRAFT  WHICH  ARE  STILL  FLYABLE  DURING  THE  CURRENT 
FLYING  CYCLE.  I.E.  THOSE  AIRCRAFT  WHICH  WERE  FLYABLE 
AT  TIC  START  OF  PREFLIGHT  AND  HAVE  NOT  GROUND-ABORTED, 
ATTRITED,  OR  BROKEN  THUS  FAR  IN  THE  CYCLE. 

THE  FIRST  WORD,  IFLYVCdl,  CONTAINS  THE  TOTAL 
NUMBER  OF  AIRCRAFT  STILL  FLYABLE  THUS  FAR  IN 
THE  CURRENT  FLYING  CYCLE.  THE  REMAINDER  OF  TIC 
WffiAY  IS  A  BIT  VECTOR  WITH  EACH  BIT  REPRESENTING 
AN  AIRCRAFT.  A  1-BIT  INDICATES  TIC  AIRCRAFT  IS 
STILL  FLYABLE.  NOTE  THAT  IFLYVC(l)  ALSO  INDICATES 
THE  NUMBER  OF  1-BITS  IN  THIS  BIT  VECTOR. 


C — 

C —  *DETERHINE  NUMBER  OF  AIRCRAFT  GROUND-ABORTING  INTO  WORKCENTERS 

C—  BY  SAMPLING  FROM  THE  APPROPRIATE  BINOMIAL  DISTRIBUTION 

NTOTBK  =  NBINGMIPABORT, NTOFLY) 


C — 

C —  *IF(THERE  ARE  ANY  BROKEN  AIRCRAFTiTHEN 

IF(NTOTBK.EQ.O)  GO  TO  1000 


C — 

C—  DEDUCE  NO.  OF  A/C  CAPABLE  OF  FLYING  THIS  PERIOD 

NTOFLY  =  NTOFLY  -  NTOTBK 


C — 

C —  »Bfl£AK  THE  LEFTMOST  FLYABLE  AIRCRAFT  INTO  MAINTENANCE 

CALL  WCDI ST ( NTOTBK , PBRKSEQ  > I ND  XWC  > I FLYVC ) 


C — 

C —  *£ND  IF  (ZERO  BREAKS  TEST) 

1000  CONTINUE 
C — 

RETURN 

END 
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SUBROUTINE  INIT( IFSCEN, IFWC, IFPRT) 

C++  INIT  -  INITIALIZE  SGM  SIMULATION. 

C***  THIS  ROUTINE  READS  AND  INITIALIZES  THE  VARIABLES  FOR  AN 
C«*  SGM  RUN.  IT  PERFORMS  T)£  FOLLOWING  SERIES  OF  STEPS  - 
CM*  1)  LOAD  AND  SET  THE  VARIOUS  PARAMETERS  DESCRIBING  THE  RUN  SCENARIO, 
CM*  2)  LOAD  AIRCRAFT  MAINTENANCE  MNPOWER  INPUTS.  3)  LOAD 
CM*  SPARE  PARTS  INFORMATION,  AND  4)  SET  MISCELLANEOUS  PARAMETERS 
CM*  FOR  MODEL  USE.  EACH  INPUT  FILE  IS  CLOSED  IMMEDIATELY  AFTER 
CM*  ALL  OF  ITS  INFORMATION  MS  KEN  READ. 

CM* 

CM*  INPUTS  — 

CM*  IFSCEN  -  IWM.it  FILE  CONTAINING  SCEW«I0  PARAMETERS 

CM*  IFWC  -  INPUT  FILE  CONTAINING  MAINTENANCE  MANPOWER  INPUTS 

CM*  IFPRT  -  INPUT  FILE  CONTAINING  SPARE  PARTS  DATA 


Cm*  COMMON  INPUTS  - 


CM* 

CM* 

INFPART 

-  LOGICAL  FLAG  INDICATING  WHETHER  INFINITE  PARTS 
ASSUMPTION  HOLDS. 

Cm* 

C*m 

INFMAN 

-  LOGICAL  FLAG  INDICATING  WHETHER  INFINITE  MANPOWER 
ASSUMPTION  IS  BEING  HADE. 

CM* 

SORTLGTH 

-  LENGTH  (IN  HOURS)  OF  EACH  SORTIE. 

C*m 

PACBRK 

-  AIRCRAFT  BREAK  RATE. 

Cm* 

NAC 

-  CURRENT  UE  STRENGTH. 

Cm*  COMMON  OUTPUT  - 

CM*  EXPECT ( I, J,K)  -  CUMULATIVE  STATISTICS  ARRAY. 


C— 


PARAMETER  NAXCYC=10,  MAXSTAT=5,  MAXDAY=30,  MAXWC=25 


COMMON  /INPUT/ 
COMMON  /STATS/ 
COMMON  /TIME/ 
COMiON  /WCBRK/ 


INITUE,  NAC,  PATTRIT,  IRES,  RNMCM.  INFPART, 
HAXFLY(MAXCYC) ,  INFMAN,  ISCALE,  IAUGMNT 
EXPECT ( MAXSTAT, NAXCYC , MAXDAY ) , 

NRESRV,  I ZDAY , I TOTRES (MAXDAY ) ,  LOSSTOT 
PREFIITF,  SORTLGTH,  WAITCYC,  TYHNITE, 

NSIN,  ISIM,  NUMDAY,  IDAY,  NCYCLES,  ICYCLE 
PACBRK,  PACGABT ,  PBRKWC(MAXWC),  PWCPROD, 
PBRKSEQ(2,MAXWC) ,  INDXWC(MAXWC) 


♦LOAD  AND  SET  SCENARIO  INPI.IT  PARAMETERS 
CALL  INITSCNI IFSCEN) 


C — 

C —  *LOAD  AND  INITIALIZE  SPARE-PARTS  DATA 

CA±  INITPRTf  IFPRT,  INFPART, SORTLGTH, PACBRK) 


C— 

C —  +REAC  AIRCRAFT  MAINTENANCE  MANPOWER  INPUTS 
C«±  INITWC< IFWC, INFMAN, NAC) 

C— 

C—  *ZERO-OUT  CUMULATIVE-STATISTICS  ARRAY 

CALL  ZERO ( EXPECT , MAXSTAT*MAXCYC*MAXDAY ) 

C — 

RETIUN 

END 
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SUBROUTINE  INITBO(NAC) 


C++  INITBO  -  INITIALIZE  PARTS  IN  RESUPPLY  AT  START  OF  SIMULATION. 
C*«  INITBO  INITIALIZES  THE  NUMBER  OF  BACKORDERS 
C*m  FOR  EACH  PART  TYPE  AT  THE  START  OF  EACH  SIMULATION 
Cm*  REPLICATION.  FOR  EACH  PART  TYPE,  A  RANDOM  SAMPLE  IS  DRAWN 
Cm*  FROM  THE  APPROPRIATE  POISSON  DISTRIBUTION  TO  DETERMINE  THE 
C++*  NUMBER  IN  RESUPPLY  AND  THE  NUMBER  OF  BACKORDERS  IS  COMPUTED 
Cm*  USING  THIS  RESUPPLY  NUMBER  AND  THE  INITIAL  SIOCK 
C«*  LEVEL.  THE  MEAN  OF  THE  POISSON  FOR  EACH  PART  IS  THE 
C***  PIPELINE  FOR  EACH  TYPE.  "NAG*  INDICATES  NUMBER  OF  ON-HAND 
C*m  AIRCRAFT  AT  THE  START  OF  THE  SIMULATION. 

Cm* 

C«*  IffUTS  - 

C*m  NAC  -  CURRENT  UE-STRENGTH. 

C*M  COMMON  INPUTS  - 

Cm*  NPARTS  -  NUMBER  OF  PART-TYPES  BEING  MODELED. 

C*m  RESUPP(K)  -  (k'=l,.. iNPARTS)  EXPECTED  NUMBER  OF  TYPE-K  PARTS 
IN  RESUPPLY  AT  THE  START  OF  THE  SCENARIO.  USED 
AS  THE  MEAN  OF  A  POISSON  DISTRIBUTION  TO  GENERATE 
A  SAMPLE  OF  TYPE-K  PARTS  INITIALLY  IN  RESUPPLY. 
(K=l, , . . , NPARTS)  INITIAL  BASE  STOCK  LEVEL  OF  KTH 
PART  TYPE. 

(K=l,..., NPARTS)  QPA  OF  KTH  PART  TYPE. 

<  K=i , . . . , NPARTS )  BASE-NOT-REPAIRED-THIS-STATION 
RATE.  INDICATES  PROPORTION  OF  TYPE-K  FAILURES 
WHICH  ARE  REPAIRED  AT  THE  BASE. 


C*M 
C*M 
C*** 

C*m 
C*m 
C*m 
C*m 
C*m 
C*m 

Cm*  COMMON  OUTPUTS 


INITSJ(K) 

ICPA(K) 

BNRTS(K) 


C*M 

NBACKO(K) 

C*M 

C*M 

C*M 

NBASE(K) 

C*M 

C*M 

NDEPOT(K) 

CM* 

■  1 

c— 

<K=1,..., NPARTS)  NUMBER  OF  BACKORDERS  FOR  KTH 
PART-TYPE.  BACKORDERS  ARE  DEFINED  AS 
(#  IN  RESUPPLYMINITIAL  STOCK  LEVEL) 

<K=1,..., NPARTS)  NUMBER  OF  TYPE-K  PARTS  IN  BASE 
RESUPPLY. 

(K=l,..., NPARTS)  NUMBER  OF  TYPE-K  FARTS  IN  DEPOT 
RESUPPLY. 


PARAMETER  NAXPRT=304 
COMMON/RSEED/  SEED 

COMMION  /PARTS/  fPARTS,  I&W  MAXPRT)  ,NBACk'0(MAXPRT), 

8RPRATE ( MAXPRT ) , CRPRATE ( MAXPRT ) , I NI TSJ ( MAXPRT ) ,  f£SUPP ( MAXPRT ) , 
BNRTS ( MAXPRT ) , NBASE ( MAXPRT ) , NDEPOT ( MA XPRT ) 

*DO  FORI EACH  PART  TYPE) 

DO  200  K=l,fF>ARTS 

♦DRAW  S0PLE  FROM  POISSON  DISTRIBUTION  FOR  NUMBER  OF 
PARTS  IN  RESUPPLY 
W£SUPP=IPOIS$ON< RESUPP ( K ) ,  SEED ) 

♦COMPUTE  INITIAL  BACKORICRS 
NBACKO(K)=NRESUPP  -  INITSJ(K) 
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c— 

C —  *IF  ( IF  BACKORDERS  GREATER  THAN  PARTS  ON-HAND) 

IF(NBACKO(K).LE.NAC*IQPA(K))  GOTO  100 

C — 

C —  *PRINT  WARNING  MESSAGE  AND  TRUNCATE  NBACKO(K) 

WRITER, 9001) 

*<  K,NBACKO(K),NAC,I£PA<K),NRESUPP*INITSJ(K),RESUFP(K) 

NBACKG(K)=NAC*IQPA(K) 

)ffiESUPP=NBACKO(K)+INITSJ(K) 

C— 

C—  #END  IF  (TRUNCATE  BACKORDERS  AT  MAXIMUM  AVAILABLE) 

100  CONTINUE 

C — 

C —  *ALLOCATE  THESE  PARTS  BETWEEN  BASE  PND  DEPOT  RESUPPLY 

RBA$E=0.0 

IF(BRPRATE(K).GT.O.O)  RBASE=< l-BNRTSXK) ) /BRPRATEOO 
RD£POT=0,0 

IFiORPRATE(K).GT.O.O)  RDEPQT=B*FTS(K) /ERPRATE(K) 
NDEP=NBINOM ( RDEPOT / ( RBASE+RDEPOT ) ,  ffffSUPP ) 
NDEPOT(K)=NDEPOT(K)+NDEP 
NBASE(K)=NBASE(K)+NRESUPP-NDEP 

C — 

C —  *END  DO  (PARTS  LOOP) 

200  CONTINUE 
C— 

RETIKN 

9001  FORMAT (*0***$$*$*  INITBO  ERROR  -  TOO  MANY  PARTS  IN  RESUPPLY",/, 

!<  "  ********  K=",I3,"  NBACK0(K)=“,I5, “  NAC=",I3,"  I9PA(K)=M3, 

L  ********  NRESUPP,  INITSJ(K),  RESUPP(K)  =  ’.2I5.F10.3) 

END 
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NPARTS=1 
100  CONTINUE 

READ! IFIL£.END=200)  CNSN.FRACT(NPARTS). I 8PA < NPARTS ),FAP, 

S<  INITSJ(NPARTS) ,  RESUPP  <  NP  ARTS ) ,  BNRTS  ( NPARTS ) ,  8  DAYS ,  DDAYS 

IF((FRACT(NPARTS).GT.0.0).AND.  ( FRACTd?  ARTS  ).LE.  1.0) ) 

&  GO  TO  50 

IF<IQPA<tf>ARTS).GT.O)GO  TO  50 
IF( (FAP.GT.O.O).AND. (FAP.LE.  l.OHGO  TO  50 
IF(INITSJ<W,ARTS).GE.O)GO  TO  50 
IF(RESUPP(NPARTS).GE.O.O)GO  TO  50 
IF< (BNRTS(NPARTS).GE.O.O) . AND. ( BNRTSINP ARTS). LE. 1.0) ) 
i  GO  TO  50 

IF(BDAYS,GE.O.O)GO  TO  50 
IFIOOAYS.GE.O.OIGO  TO  50 

WRITE(6,?003)  CNSNtFRACTtNP ARTS). I8PA(NP ARTS) »FAP> 

Sr  INI  TSJ<  NPARTS ) ,  RESUPP  ( NPARTS ) .  BNRTS  ( NPARTS ) ,  BDAYS.  BDAYS 


GO  TO  100 

50  CONTINUE 

BRPRATE ( NPARTS ) =0. 0 

IF(BDAYS.GT.O.O)  BRPRATE(NP«TS)=1.0/(24.0*BDAYS) 
BRPRATE(NPARTS)=0.0 

IF( DDAYS. GT. 0.0)  DRPRATE ( NPARTS )=1 .0/(24. 0*DDAYS ) 
FRACT ( NPARTS ) =FRACT ( NPARTS ) *FAP*$ORTLGTH 
IF(FRACT(NPARTS).LE.O.O)GO  TO  100 
NPARTS=NPARTS+1 
IFlfPARTS.LE.MAXPRTJGO  TO  100 
READ! IFIL£iEND=200)CNSN 
WRITE(6>  9004)MAXPRT 
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n  n  or>  r>o  o  o  cp  o  ooo  o  o 


200  CONTINUE 

NPARTS=NPARTS-1 

WRITE(6,9005)NPARTS 

—  #CL0$E-QUT  SPARES  INPUT  FILE 

CALL  FCLOSE(IFILE) 

—  COffUTE  MEAN  AND  VMIANCE  OF  RANDOM  VARIABLE  -  TOTAL 

—  -PART-DEMANDS  PER  BROKEN  AIRCRAFT 

CW1  PSTATIPACBRKi  NPARTS,  IQPA,  FRACT .  ACMEAN,  ACVAR.  NPERAC) 


—  *CONVERT  PART-DEMANDS-PER-RY I NG-HOUR  TO  A  PDF 

Cfl±  MAKEPD(NPARTS, IQPA, FRACT) 

—  *SET-(JP  TABLES  NEEDED  FOR  ALIAS  METHOD  OF  SAMPLING  PART-DEMANDS 

CALL  ALIASINPARTS. FRACT > IALIAS) 

FPMTS  =  FLOAT  (NPARTS) 

—  «ELS£  (INFINITE  PARTS  ASSUMED) 

GO  TO  950 
900  CONTINUE 

—  *PRINT  fESSAGE  INDICATING  INFINITE  SPARE  PARTS  ASSUMPTION 

WRITER.  9002) 

—  «END  IF  (INFINITE  SPARE-PARTS  TEST) 

950  CONTINLE 

C— 

RETURN 

9002  F0RMAT(1H0,7X, "INFINITE  SPARE  PARTS  ASSUMED  FOR  THIS  SGM  RUN,  ", 

4  /."I. E.,  NO  AIRCRAFT  EVER  WAITS  FOR  A  SPARE  PART.") 

9003  FORMAT! "<)$«*$«$*  INITPRT  ERROR  -  INVALID  PART  CHARACTERISTIC". 


4 

/, 

•  *$$««$*« 

NPARTS,  CNSN  =  *,I3,1X,A18, 

4 

/, 

■  $$«$$$*$ 

FRACT,  I0PA,  FAP  =  ”,F6.4,I4,F5.2, 

8 1 

/, 

*  «$«$$««$ 

INITSJ,  RESUPP,  BNRTS  =  M4.2F8.3, 

4 

/, 

■  tttttttt 

BDAYS,  DDAYS  =  ’.2F10.2) 

9004  FORMAT! *0*$$*$$$$  INITPRT  ERROR  -  TOO  MANY  LRU  TYPES"./, 
I,  "«<$«$<$  MAXPRT  =  ",I5) 

9005  FORMAT)  1H0.3X,  "LRU  TYPES  -  M4) 

END 


4 
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SUBROUTINE  INITREP 

C++  INITREP  -  INITIALIZE  VARIABLES  FOR  A  SIMULATION  REPLICATION. 
C*«  THIS  ROUTINE  PERFORMS  THE  LENGTHY  INITIALIZATION  1EEDED 
C*«*  EACH  SIMULATION  REPLICATION  OF  THE  SOI.  THIS  PROCESS 
C*»*  IS  ORGANIZED  IN  THE  FOLLOWING  MANNER.  FIRST,  MISCELLANEOUS 
C***  OPERATIONS  ARE  PERFORMED,  TIEN  SPARES  INITIALIZATION,  AND 
C***  FINALLY,  WORK  CENTER  INITIALIZATION.  TIE  NUMEROUS  COMMON  OUTPUTS 
Cm*  OF  THIS  ROUTINE  ARE  NOT  DEFINED  HERE,  BUT  THE 
Cm*  OPERATIONS  BEING  PERFORMED  SHOULD  BE  CLEAR  FROM  THE  PRQGRAM- 
C*m  DESIGN  LANGUAGE  (PDL)  CORRESPONDING  TO  EACH  OPERATION. 
C*WWHH***mH«Hi«H»mmimi>HH*HHHHmHm«HHIH 


PARAMETER  MAXAC=108,MAXWC=25,MXBIT=36,NAXPRT=304, 

MAXVEC=2+ ( MAXAC- I > /MAXBIT 

PARAMETER  LFLD=7,NPERWRD==fWXBIT/LFLD,MXINWC=i+<MAXAC-l)/NPERWRD 

PARAMETER  MAXDAY=30,MAXCYC=10,MAXSTAT=5 

COMMON  /ACSTATE/  LENGTH,  NACVC(MAXVEC),  IFLYVC(HAXVEC), 

MAINVC(MAXVEC),  NORSVC(MAXVEC),  LOSTVClfWXVEC) 
COMMON  /INPUT/  INITUE,  NAC,  PATTRIT,  IRES,  RNHCM,  1NFPART, 
MAXFLY(HAXCYC),  INFMAN,  ISCALE,  IAUGMNT 
COfflON  /PARTS/  NPARTS,  IQPA(MAXPRT),  NBACKO(HAXPRT), 

BRPRATE(HAXPRT),  DRPRATE(MAXPRT),  INITSJ(MAXPRT), 
RESUPP(MAXPRT),  BWTSIMAXPRT),  NBASE(HAXPRT), 
NDEPOT(NAXPRT) 

COMMON  /STATS/  EXPECT (MAXSTAT, MAXCYC , MAXDAY ) , 

NRESRV,  I ZDA Y, I TOTRES (MAXDAY ) , LOSSTOT 
COMMON  /WCBRK/  PACBRK,  PACGABT,  PBRKWC(HAXWC),  PWCPROD, 
PBRKS£9(2,NAXWC>,  INDXWC(MAXWC) 

COMMON  /WCINPUT/  NWC,  NCREWS(MAXWC),  SRATE(MAXWC) 

COMMON  /WCMAINT/  LISTRPfMXINWC.NHWC),  INREPR(MAXWC) 

LOGICAL  INFPART 

•INITIALIZE  RESERVE  AIRCRAFT  COUNTS 
CALL  ZEROdTOTRES, MAXDAY) 

IZDAY=0 

NRESRV=0 

♦RESET  INITIAL  L€  FOR  THIS  REPLICATION 
NAC  =  INITUE 
CALL  UEUPDATiNAC) 


C — 


C—  *INITIALIZE  CUMULATIVE  AIRCRAFT  LOSSES  TO  IOC 
LOSSTOT  =  0 

C— 

C—  *CLEAR  AIRCRAFT-STATUS  BIT-VECTORS 
CALL  ZERO(LOSTVC,MAXVEC, 

I,  NORSVC.MAXVEC, 

it  INREPR.MAXWC) 

C— 

C —  *SET  FIRST  NAC  BITS  OF  THE  FLYING  BIT-VECTOR  TO  FlYABLE 
DO  IOO  1=1, LENGTH 


100  IFLYVC(I)=MCVCU) 


—  *IF< INFINITE  PARTS  NOT  ASSUMED) THEN 

IF(INFPART)GO  TO  200 

—  »CLEAR  BASE  AW  DEPOT  RESUPPLY  COUNTS 
CALL  ZERO( NBASE>  MAXPRT . NDEPOT > MAXPRT ) 

—  *CALCULATE  INITIAL  BACKORDERS  FOR  EACH  PART-TYPE 

CALL  INITBO(NAC) 

—  * INITIALIZE  NUH8ER/DISTRIBUTI0N  OF  NORS  AIRCRAFT 

NORS  =  NQRSACtNPARTSi  IQPA*N8ACK0) 

CfiLL  TBITSL(NORS» IFLYVC. NORSVC) 

—  *€ND  IF  (INFINITE  SPARES  TEST) 

200  CONTINUE 


•INITIALIZE  NUHBER/DISTRIBUTION  OF  AIRCRAFT  IN  MAINTENANCE 
NBRKAC  »  INT (RNhCWfLOAT (NAC) ) 

CALL  UCDIST ( NBRKAC. PBRKSE9>  INDXUC.  IFLYVC) 


c< 


SUBROUTINE  INITSCNdFSCEN) 

Ciiiiiii[inntHttmmmimmtMnimminimmiinmmiii 

C++  INITSCN  -  READ  AND  INITIALIZES  SCEWRIO  INPUTS. 

C++*  THIS  ROUTINE  LOADS  THE  SCENARIO  PARAMETERS  SPECIFIED 
C++*  BY  TIC  USER.  IT  #.SO  PREPARES  TIC  SCRATCH  FILE  (FILE  03) 

C++*  WHICH  IS  USED  TO  WRITE  A  COPY  OF  THOSE  SCEWtflO 
C+*+  PARAMETERS  WHICH  ARE  M10WED  TO  VARY  ON  A  DAILY  BASIS 
Cm  THROUGHOUT  TIC  SCENARIO.  A  LIST  OF  VALUES  IS  WRITTEN  TO  THIS 
Cm  SCRATCH  FILE  FOR  EACH  SIMULATION  DAY.  THEN.  WHEN  EACH 
Cm  FLYING  DAY  BEGINS  (FOR  EACH  SIMULATION  REPLICATION),  THE 
Cm  PARAICTER  VALUES  FOR  THAT  DAY  ARE  LOADED. 

ClHimiHlimUmumiHHHHHHimmiimHHHHHWWHH 

C — 

PARAMETER  MAXWC=25,  MAXVARY=5>  MAXCYC=10 
CHARACTER+4  FTOTYM.LTOTYM 
CHARACTER+20  CHSEED 
CHARACTER+80  NEXTLINE 

LOGICAL  VARY(MAXVARY)»VARYSW, INFPART, INFMAN 

C0H10N  /RSEED/  SEED 

COMMON  /TIME/  PREFLITE.SORTLGTH.WAITCYC, 

&  TYMNITE.NSIH. ISIM.NUMDAY, IDAY.NCYCLES, ICYCLE 

COMMON  /INPUT/  INITUE.NAC.PATTRIT. IRES, RN1CM. INFPART, 

&  MAXFLY(MAXCYC) , INFMAN, ISCALE,  IAUGMNT 

COMMON  /WCBRK/  PACBRK,  PACGABT,  PBRKWC(MAXWC),  PWCPROO, 

&  PBRKSEQ(2,NAXWC),  INOXWC(HAXWC) 

C — 

C —  +READ  STORED  INPUT 
5  FORMAT! V) 

READ(IFSC£N,5)  iVARYd),  I=1,MAXVARY> 

READ(IFSCEN,5)  CHSEED, FTOTYM.LTOTYM, INFMAN, INFPART.NSIH.NAC 
I,  ,  PACBRK,  RMCM.NUMBAY.PREFLITE.SORTLGTH 

READ(IFSCEN,5)  ISCALE 
NEXTLINE='  ' 

INITIE=NAC 

WRITE<06.9000)  NSIM, CHSEED, NAC 
VARYSW=.F. 

READIIFSCEN.5)  PATTRIT, PACGABT, NCYCLES, IRES, WAITCYC.TYMNITE 
READ(IFSCEN,5)  (HAXaY(I),  1=1,  NCYCLES) 

IF  <VFWY(4) )  GOTO  100 
WRITE<06.9008>  IRES 
GOTO  200 
100  CONTINUE 

WRITE (06, 9007) 

CALL  C0NCAT(NEXTLINE,28,/VARY  BY  DAY', 1.11) 

VARYStKT. 

200  CONTINUE 

IF  (VARY(5))  GOTO  300 

WRITE<06, 9010)  MAXFLY( l ) 

GOTO  400 
300  CONTINUE 

HRITi(06,9009) 

VARYStKT. 


O  O  <->  O  <->  o 


CALL  C0NCAT()EXTLINE>45.  VARIES  BY  CYCLE/DAYM,  19) 

400  CONTINUE 

HRITE(06i9011)  NEXTUNE 
IF  (VARY(3)>  GOTO  500 

WRITEI06.9012)  NUNDAY * NCYCLES, FTOTYN, LTOTYH, PREFLITE . SORTLGTH, 
k  MAITCYC.TYH4ITE 

GOTO  600 
500  CONTINUE 

URI7E(06> 9013)  NUNDAY, FTOTYN.LTOTYH, PREFLITE, SORTLGTH 
VARYSW=.T. 

600  CONTINUE 

WRITE<06,9014)  RNHCN.PACBRK 
«XTLINE='  ' 

IF  (VARYU))  GOTO  700 
HRITE(06,9015)  PATTRIT 
GOTO  800 
700  CONTINUE 

WRITE(06,9016) 

VARYSW=.T. 

CALL  C0NCAT(NEXTLINE,19>'BY  DAYM,6> 

800  CONTINUE 

IF  (VARY12))  GOTO  900 

HRITEI06.9017)  PACGABT.ICXTLM 
GOTO  1000 
900  CONTINUE 

CALL  C0NCAT(fEXTLINE,46.'BY  DAY', 1,6) 

HRITE(06,9018>  NEXTUNE 
VARYSW=. T. 

1000  CONTINUE 

DO  1200  I  DAY=1, NUNDAY 

WRITE103)  PATTRIT, PACGABT.NCYCLES, IRES,HAITCYC,TYNNITE 
MRITE(03)  (NAXFLY(J), J=1,NCYCLES) 

IF  (.NOT.VARYSH)  GOTO  1100 
HRITE(06,9001)  'DAY  =',1DAY 
IF  (VARYU))  NRITE<06,9002)  PATTRIT 
IF  (VARY(2)J  HRITE(06,9003)  PACGABT 
IF  (VARY<3))  URITE4 06, 9004)  NCYCLES, UAITCYC.TYHNITi 
IF  < VARY ( 4 ) )  WRITE(06»9005)  IRES 
IF  (VARY(5) )  WRITE(06,9006)  'CYCLE', <J,J= l, NCYCLES) 

IF  (VARY15))  HRITE(06,9006)  'NAX-FLY', 
k  <NAXFLY(J),J=1, NCYCLES) 

1100  CONTINUE 

IF  (IDAY.E9. NUNDAY)  GOTO  1200 

READ(IPSCSN,5)  PATTRIT.PACGABT, (CYCLES, IRES, NAITCYC.TYHNITE 
f€AD(IFSCEN>5)  <HAXFLY(J),J=1,  (CYCLES) 

1200  CONTINUE 

—  CONVERT  USER  SEED  TO  A  REAL  NUNBER 
DECODE (CHSEED,  5)  SEED 


—  CLOSE  SCENARIO  IWUT  FILE 

—  CALI  FCLOSE(IFSCEN) 
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T 


RETURN 

9001  FORMAT! 'O', A5, 13) 

9002  FORMAT!'  ATTRITION  RATE  =',F6.4> 

9003  FORMAT!'  GROUND-ABORT  RATE  =',F6.4) 

9004  FORMAT!'  HAVES  PER  DAY  =',I3/'  WAIT  TIME  =',F4.2, 

&  /'  OVERNITE  RECOVERY  =',F5.2) 

9005  FORMAT!'  RESERVES  =',I3) 

9006  FORMAT!'  ', A7, 10(2X, 13) ) 

C 

9000  FORMAT! /l'///4X'»MmmHtn«»minimimn»MmM«M', 
i  'iiiiiHiiHWHWHHmt'./.O'miiHiniinniiini)' 

it  ,'*«***  SGM  RUN  HHHUHHwmmwiHH' ,  /,4X 

&  'IHmiHlimHHHXHHmHtiHIHHtHHHHHHHHIH', 

i  '**«***', ///,4X 

<>  'SIMULATION  -  REPLICATIONS  =',  14, 5X, 

k  'RANDOM  NUffflER  SEED  =  ',A8/'0',3X, 'AIRCRAFT  -',3X. 

&  'UE  a' i 13) 

9007  F0RtWT!'+'.28X, 'RESERVES') 

9008  FORMAT!' +',27X, 'RESERVES  =',I3) 

9009  FORMAT ( '♦' , 44X, 'MAX IMUH  LAUNCH-SIZE') 

9010  F0RlttT<'+',44X, 'MAXIMUM  LAUNCH-SIZE  =',I3) 

9011  FORMAT!'  '.A80/'0',3X, 'FLYING  SCfCDULE  -'/'O',  10X, 'HAVES', 3X, 

k  'TAKEOFF', 

Si  '  TIMES', 6X, 'MINIMAL', 3X, 'SORTIE', 2X,'HAIT',2X, 'OVERNIGHT'/ 

Si  4X, 'DAYS', 2X, 'PER  0AY',3X, 'FIRST', 3X, 'LAST', 4X, 

Si  'TURNAROUND', 2X> 'LENGTH', 2X, 'TIME',2X,  RECOVERY') 

9012  F0RMAT('0',3X,I3,5X,I2,6X,A4,4X,A4,6X,F5.2,5X,F5.2,3X,F4.2, 

!>  3X.F5.2) 

9013  FORMAT! 'O', 3X, I3,4X,'VARY',5X,A4,4X,A4,6X,F5.2,5X,F5.2,2X, 

Si  ' VARIES', 2X, 'VARIES'/'  ',9X,'BY  DAY',39X,'BY  DAY',2X,'BY  DAY') 

9014  FORMAT ( 'O', 3X, 'RATES  -'/'O', 6X, 'INITIAL', 17X, 'AIRCRAFT'/ 

Si  6X,'NHCH  RATE', 3X, 'ATTRITION', 3X, 'BREAK  RATE',3X, 

Si  'GR0UND-AB0RT'/'0',7X,F5.3,7X,13X,F6.4, ) 

9015  FORMAT! '+M7X.F6.2) 

9016  F0RfttT!'+',18X, 'VARIES') 

9017  FORMAT! '+',43X,F6, 4/'  ',A80) 

9018  F0RMAT!'+',45X, 'VARIES'/'  ',A80) 

END 
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SUBROUTINE  INITWCIIFILE. INFMAN, NAC) 


C+*  INITWC  -  LOAD  AND  INITIALIZE  MAINTENANCE  WORK  CENTER  DATA. 
C***  THIS  ROUTINE  INITIALIZES  THE  INFORMATION  fCEDED 
C#**  FOR  MODELING  THE  AIRCRAFT  MAINTENANCE  WORK-CENTERS. 

Cm*  IT  READS  THE  MAINTENANCE  MAffOWER  IfPUT  FILE.  PRINTS 
Cm*  A  LISTING  OF  TTCSE  INPUTS.  AND  COMPUTES  ADJUSTED  BREAK- 
C*m  RATE  ARRAYS  FOR  WORK-CENTER  BREAKS 
C*M 


Cm*  INPUTS  — 
C*»*  IFILE 

Cm* 

C*m 

C*m 

cm*  INFMAN 

Cm* 

C*m 

C*M 

C*M 

CM*  NAC 

Cm* 


-  UNIT  NUMBER  OF  THE  HFUT  FILE  FROM 
WHICH  THE  WORK-CENTER  INPUTS  ARE  READ. 

THIS  FILE  IS  CLOSED-OUT  AFTER  THE  INPUTS 
ARE  READ 

-  LOGICAL  VARIABLE  INDICATING  WHETHER  INFINITE 
MANPOWER  IS  ASSUMED  FOR  ALL  WORK-CENTERS.  IF 
INFNAN=TRUE  THEN  NUMBER  OF  SERVERS  FOR  EACH  WC 
IS  SET  EQUAL  TO  THE  MXIMUH  ALLOWABLE  NUMBER 
OF  AIRCRAFT. 

-  UE  (UNIT  EQUIPMENT) .  NUMBER  OF  AIRCRAFT 
POSSESSED  BY  THE  BASE  OF  INTEREST. 


Cm*  COMMON  INPUTS  - 

CM*  PACBRK  -  USER-IMVT  AIRCRAFT  BREAK-RATE.  PROBABILITY 
Cm*  THAT  AN  AIRCRAFT  RETURNING  FROM  A  SORTIE  REQUIRES 


C*M 

Cm* 

C*M 

C*M 

Cm* 

C*M 

CM* 

Cm* 

Cm* 

C*M 

CM* 

Cm* 

C*m 

Cm* 

C*m 


UNSCHEDULED  MAINTENANCE  IN  AT  LEAST  1  WORK-CENTER 

PACGABT  -  PROBABILITY  THAT  AN  AIRCRAFT  GROUND-ABORTS  DURING 
THE  PRE-TAKEOFF  PERIOD. 

COMMON  OUTPUTS  - 

NWC  -  NUMBER  OF  WORK-CENTERS  TO  BE  MODELED 

NCREWS  -  NUMBER -OF-SERVERS  ARRAY.  NCREWS(I)  IS  THE 
NUMBER  OF  SERVERS  IN  THE  ITH  WORK-CENTER. 

PRATE  -  SERVICE-RATES  ARRAY.  SRATE(I)  IS  THE  SERVICE- 
RATE  (IN  AIRCRAFT  PER  HOUR)  OF  THE  SERVERS 
FOR  THE  ITH  WORK-CENTER. 

PBRKSEQ  -  WORK-CENTER  BREAK  ARRAYS  FOR  T)€  SEQUENTIAL 

SMffUNG  PROCESS  OF  DETERMINING  WHICH  WORKCENTERS 
AIRCRAFT  BREAK  INTO. 

INDXUC  -  SORTED  ARRAY  OF  WORK-CENTER  INDICES  USED  WITH 
SEQUENTIAL-SAMPLING  PROCESS. 


CMMMMMmmilHIHMHMIHMMMMMMlHMUMMMMMMMMM 


C — 

PARAMETER  HAXW025,  HAXACM08,  LFLD=7 

COMMON  /WCINPUT/  NWC.  NCREWS ( MAX WC).  SRATE(MAXWC) 

COMMON  /WC8RK/  PACBRK,  PACGABT,  PBRKWC(MAXWC),  PWCPROD, 
fc  PBRKSEQ ( 2, MAXWC),  INDXWC(MAXWC) 

LOGICAL  INFMAN 

C— 

C—  *READ  AND  ECHO-PRINT  MAINTENANCE  MANPOWER  IIPUT  FILE 
CALL  WCREAD< IFILE.HAXUC, NWC. PBRKWC, NCREWS, SRATE) 

C— 

C—  *IF  INFINITE  MANPOWER  ASSUMED  -  RESET  NIGER  OF  SERVERS 
C—  PER  SHIFT  TO  MAX  NUMBER  OF  AIRCRAFT;  THUS  NO  AIRCRAFT 
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c- 


WILL  EVER  WAIT  FOR  A  SERVER 
IF(IfFMAN)  OU  SPRAY(NAXACiNCREWS,WC) 
IF(INFMAN)WRITE(6,9001) 


C— 

C —  ^INITIALIZE  WORK-CENTER  BREAK  ARRAYS  FOR  GROUND-ABORTS  AND 
C —  BREAKS!  NOTE  THAT  THE  SAME  ARRAYS  ARE  CURRENTLY  USED  FOR  BOTH 

CALL  WCPROB(NWC,P8fiKWC>PBRKSEQ>INDXHC,PWCPROD) 

C— 

C —  *PERFORt1  ERROR  CHECK  TO  ENSURE  LFU)  PARAMETER  LARGE  ENOUGH 
C —  SO  THAT  THE  BIT-FIELD  CPU  STORE  THE  MAX  AC  * 

IFtMAXAC.GT.  2«LFU))  WRITER, 9002JLFLD,  MAXAC 

C— 

RETURN 

9001  FORMAT ( 1H0. 7Xi  "INFINITE  MANP(B£R  ASSWED  FOR  THIS  SOM  RUN 

k  7X,"I.E. ,  THERE  ARE  NEVER  ANY  AIRCRAFT  QUEUES  IN  MAINTENANCE.*) 

9002  FORMAT ( “OttMMt*  INITWC  ERROR  -  LFLD  PARAMETER  TOO  SMALL",/, 

k  ■  »**«$$$  LFLD,  MAXAC  =  ‘,215) 

END 


c 


INTEGER  FUNCTION  IPOISSONIRMEAN.SEED) 

C++  I  POISSON  -  G0CRATE  RWfflOM  SAMPLE  FROM  A  POISSON  DISTRIBUTION. 

C++*  THIS  ROUTINE  GENERATES  A  RWfflOH  SAMPLE  FROM  A 
C++*  POISSON  DISTRIBUTION  WITH  A  GIVEN  MEAN.  THE  EXPONENTIAL-DRAW 
C*«*  METHOD  IS  USED  FOR  DISTRIBUTIONS  WITH  SMALL  MEANS,  AND 
C**+  A  NORMAL  APPROXIMATION  IS  USED  FOR  LARGER  MEANS  (  >20). 

C++* 

C++*  INPUT  - 

C++*  RrtEAN  -  J€AN  OF  POISSON  DISTRIBUTION  FROM  WHICH  SAJFLE 
C++*  IS  TO  BE  GENERATED. 

C++*  INPUT/OUTPUT  - 

C++*  SEED  -  SEED  OF  RANDOM  NUMBER  GENERATOR. 
C»HHIHItHIIIIIIWHHHHimillllllHHIIIIHHH»lHHmHH 
C — 

C —  *IF(  INPUT  PARAMETER  IS  A  LEGITIMATE  fEAN  FOR  A  POISSON) 

IF(RfEAN.LT.O.O)GO  TO  400 

C — 

C —  *IF(MEAN  IS  NOT  TOO  LARGE) 

IF(RHEAN  .GT.  20.0)  GO  TO  200 

C — 

C —  +USE  EXPONENTIAL  DRAW  METHOD  FOR  POISSON  SAMPLE 

IPOISSON=-i 
PR0D=1.0 
TEST=£XP(-RMEAN) 

100  CONTINUE 

IPOISSON=IPOISSON+I 
PRO  D=PR0D+UNIFM1 (SEED) 

IF(PROD.GE.TEST)GO  TO  100 

C— 

C—  +ELSE  (LARGE  MEAN) 

GO  TO  300 
200  CONTINUE 

C — 

C —  +USE  NORMAL  APPROXIMATION  TO  POISSON 

IPOISSON=MAXO<0,  INT(XNCTO1(RMEAN,SQRT(RMEAN),SEED)+.5)) 

C — 

C—  +END  IF  (SIZE  OF  MEAN  TEST) 

300  CONTINUE 

C— 

C —  *€LSE  (MEAN  IS  LESS  TWW  ZERO) 

GO  TO  500 
400  CONTINUE 

C — 

C-—  +SET  RETURN  VALUE  TO  ZERO  AND  PRINT  ERROR  MESSAGE 

I POISSON  =  0 
WRITE(6,9001)RHEAN 

C— 

C —  +END  IF  (LEGITIMATE  MEAN  TEST) 

500  CONTINUE 

C— 

RETURN 


C-34 


9001  FORMAT! IPOISSON  ERROR  -  NEGATIVE  MBW 
&  ■  ««$$$$$$  RfEAN  =  "iFlO.5) 

END 


C-35 


INTEGER  FUNCTION  LBITS* IWGRD.NBITS) 


C++  LBITS  -  MASK-OFF  LEFTMOST  1-BITS  IN  A  COTPU1ER  WORD. 

C++*  LBITS  IS  A  FORTRAN  FUNCTION  WHICH  WILL  SELECT  A  GIVEN 
C++*  NUMBER  OF  1-BITS  FROM  THE  LEFTMOST  PORTION  OF  A  GIVEN  WUT 
C++*  WORD,  LBITS  RETURNS  A  WORD  CONSISTING  OF  THESE  SELECTED 
C++*  1-BITS  WITH  O'S  EVERYWHERE  ELSE.  NOTE  THAT  THE  INPUT 
C++*  WORD  SHOULD  CONTAIN  AT  LEAST  AS  MANY  1-BITS  AS  THE  NUMBER  TO  EE 
C++*  SELECTED.  NBITS'. 

C++*  THIS  ROUTINE  IS  SPECIFIC  TO  A  COMPUTER  WITH  36-BIT  WORDS 
C++*  SINCE  IT  WORKS  BY  EXTRACTING  6-BIT  FIELDS. 

C++* 

C++*  INPUTS  - 
C++*  I WORD 

C++* 

C++* 

C++* 

C**«  NBITS 
C**»  OUTPUT  - 
C**+  LBITS 
C++* 


-  WORD  FROM  WHICH  THE  1-BITS  ARE  TO  BE  SELECTED. 

THIS  WORD  SHOULD  CONTAIN  AT  LEAST  AS  MANY  1-BITS 
AS  REQUESTED.  IF  MORE  THAN  THAT  ME  REQUESTED, 

THIS  ROUTINE  WILL  RETURN  M  EXACT  COPY  if  THE  INPUT. 

-  NUMBER  OF  1-BITS  TO  BE  SELECTED  FROM  1WORD". 


-  A  COPY  OF  THE  PORTION  OF  THE  INPUT  WORD  CONTAINING 
THE  SPECIFIED  NUMBER  OF  LEFTMOST  1-BITS. 

C++*  COMMON  TABLES  USED  - 

C**+  ICOUNT(I)  -  NUMBER  OF  1-BITS  IN  THE  BINARY  REPRESENTATION  OF  TIC 

C++*  INDEX  I.  1=0, 1,2... .,63 

C++*  MSKLFT(I)  -  MASK  FOR  WHICH  THE  LEFTMOST  I-BITS  ARE  1-BITS, 

C***  AND  THE  REMAINDER  OF  THE  WORD  IS  ZERO.  1=1, 2, 3 . 36 

C**+  HASK11)  -  CONTAINS  A  1  IN  THE  ITH  BIT  (COUNTING  FROM  THE  LEFT) 
C+*+  AND  O'S  EVERYWHERE  ELSE.  1=0, I, 2,..., 35 


C— 


PARAMETER  MAXBIT=36,LFIELD=6 

COMMON  /BITS/  HA3K0, MASK <351,  MLEFT0,NSKLFT(36), 

&  IZC0UT,IC0UNT(63) 

C— 

C —  +IF(NO  BITS  ARE  REQUESTED (THEN 

IF(NBITS.GT.O)  GO  TO  1000 

C— 

C —  +RETURN  A  VECTOR  OF  ALL  ZEROES 

LBITS  =  0 

C — 

C —  +ELSE  (SELECT  LEFTMOST  BITS) 

GO  TO  5000 
1000  CONTINUE 
C — 

C —  ♦+ SEARCHING  FROM  LEFT  TO  RIGHT,  FIND  THE  6-BIT  FIELD 

C —  CONTAINING  THE  LAST  BIT  TO  BE  SELECTED 

C — 

C —  UNITIALIZE  DO 

IBIT  =  0 
IFOUND  =  0 

C— 

C—  +D0  UWTILi APPROPRIATE  6-BIT  FIELD  IS  FOUND) 
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2000  CONTINUE 

C— 

C —  *UPDATE  NUMBER  OF  1-BITS  FOUND  SO  FAR 

I  FOUND  =  I  FOUND  ♦  IOXNT(FLD(  IBITiLFIELD.  IWORD) ) 

C — 

C—  HJPDATE  FIELD  COUNTER 

IBIT  =  IBIT  ♦  LFIELD 

C — 

C —  #END  DO  (FIELD  LOOP) 

IF(( IFOUND.LT. NBITS)  .AND.  ( IBIT. LT. MAXBIT) )  GO  TO  2000 

C — 

C—  COMPUTE  NUMBER  OF  EXTRA  1-BITS  INCLUDED 

NEXTRA  =  I FOUND  -  NBITS 

C — 

C —  *PERFORH  ERROR  CHECK  TO  ENSURE  PROPER  WJMBER  OF  IS  FOUND 

IF(NEXTRA.LT.0)WRITE(6, 9001 (NBITS, IFOUND, NEXTRA 

C — 

C —  *D0  WHILE! THERE  ARE  EXTRA  l'S  TO  ELIMINATE) 

3000  CONTINUE 

IF(NEXTRA.LE.O)  GO  TO  4000 

C— 

C —  *DECREMENT  BIT  COINTER 

IBIT  =  IBIT  -  1 

C— 

C—  ^DECREMENT  EXTRA-BIT  COUNTER  IF  THIS  BIT  IS  A  1 

IF(AND(IWORD,MASK(IBIT)).NE.O)  NEXTRA=NEXTRA-1 

C — 

C —  *END  DO  (EXTRA  l'S  LOOP) 

GO  TO  3000 

4000  CONTINUE 

C— 

C —  *RETURN  PORTION  OF  INPUT  UP  TO.  BUT  NOT  INCLUDING 

C—  THIS  LAST  BIT 

LBITS  =  AND(IW0RD.MSKLFT(I8IT>) 

C — 

C —  »END  IF  (ZERO  BITS  REQUESTED  TEST) 

5000  CONTINUE 
C — 

RETURN 

9001  FORMAT ( "0$******$  LBITS  ERROR  -  TOO  FEW  1-BITS  TO  MASK’,/. 

&  ■  $**$*$$*  NBITS.  IFOUND.  NEXTRA  =  U-3I5) 


END 


D 


SUBROUTINE  MAKEPD  (N.IQPA, DEMAND) 

C++  MAKEPD  -  CONVERTS  PARTS  DEMAND  ARRAY  INTO  A  PDF. 

C*«  THE  ALIAS  METHOD  REQUIRES  A  LEGITIMATE  PROBABILITY 

C»*+  DISTRIBUTION  AS  AN  INPUJ.  THIS  ROUTINE  TflCES  THE  QPA 

C*»  AND  PROBCDEMANDI  FIGURES  FOR  EACH  PART.  AND  FCRMS  A  PDF 
C++*  FROM  THEIR  PRODUCTS.  THERE  ARE  N  PART  TYPES. 


g  ; ;  i ;  ;  ST: 


c — 

DIMENSION  IQPA(N).DEMAND(N) 

C — 

SUM  =  0.0 
DO  30  K=1,N 

[€fW®(K)  =  DEMAND(K)  *  FLOAT!  IQPA(K)) 
SUM  =  SUM  +  DEMAND(K) 

30  CONTINUE 

RECIP  =  1.0  /  SUM 
SUM  =  0.0 
DO  60  K-l.N-1 

DEMAND(K)  =  DEMAND! K)  *  RECIP 
SUM  =  SUM  +  DEMAND(K) 

60  CONTINUE 

DEHAND(N)  =  1.0  -  SUM 

C — 

RETURN 

END 


C++  MN0I1  -  GENERATE  MULTINOMIAL  SAMPLE  FOR  PART  DEMAND  TYPE. 

Cm*  THIS  FUNCTION  GENERATES  A  MULTINOMIAL  SMPLE  INDICATING 
C+++  WHICH  PART  TYPE  HAS  BROKEN.  IT  USES  TWO  TABLES  CREATED 
C++*  PREVIOUSLY  BY  SUBROUTINE  'ALIAS'. 

C*** 

C++*  COMMON  IMVTS  - 

C**#  PARTS  -  FLOATING-POINT  VALUE  OF  NUMBER  OF  PART  TYPES,  N 

C++*  FRACT(I)  -  TABLE  OF  FRACTIONAL  CUTOFF  VALUES  USED  BY  THE 

C***  ALIAS  METHOD.  1=1,2, ...,N 

C+m  IALIAS(I)  -  TABLE  OF  ALIASES  USED  BY  ALIAS  METHOD.  1=1 
C+m  OUTPUT  - 

C+m  MNOM  -  INDEX  INDICATING  TYPE  OF  PART  WHICH  HAS  BROKEN. 

C+m  MN0H=1,2,...,N  (NUMBER  OF  PttT  TYPES) 

++M+MM++++M++++++++++++ #++HM++M+*tlHH  MM+ftMMf  M+t+f 

c — 

PARAMETER  «XPRT=304 
COMMON  /RSEED/  SEED 

COMMON  /ALIASC/  FRACT(MAXPRT),IALIAS(MAXPRT), PARTS 
C— 

C —  +MAKE  'Ll"  A  UNIFORM  (O.N)  RANDOM  REAL  NUMBER 
U  =  PARTS  »  UNIFMl(SEED) 

C —  * 

C —  +MAKE  'IU'  A  UNIFORM  RANDOM  INTEGER  (1,N) 

IU  =  IFIX(U)  +  1 
C — 

C —  +IF  NECESSARY,  REPLACE  'IU'  BY  ITS  ALIAS 
IF  (U  .GT.  FRACT(IU))  IU  =  IALIAS(IU) 

C — 

C —  RESULT  IS  RETURNED  AS  'MNOM' 

MNOM  =  IU 

C— 

RETURN 

END 


CimnnnmHiHHminmn»nmiwiiiiimnmiimnminn 

SUBROUTINE  MUPDATE(NWC.MAINVC) 

CiimuininiHHimiiHHHHiiiiiiiiiiiunHimiimiinnHiiii 

C+*  MUPOATE  -  UPDATE  MAINTENANCE  AIRCRAFT-STATE  BIT-VECTOR. 

C*M  NUPDATE  UPDATES  THE  OVERA1  MAINTENANCE  BIT-VECTOR.  THIS 
Chi  UPDATING  PROCESS  CONSISTS  OF  GOING  THROUGH  EACH  WORK-CENTER 
CM*  LIST  OF  AIRCRAFT  AM)  HARKING  THE  CORRESPONDING  BIT-POSITION  !N 
Cm*  THE  MAINTENANCE  BIT-VECTOR  FOR  ANY  AIRCRAFT  IN  SUCH  A  LIST;  THUS. 
C*m  ANY  AIRCRAFT  IN  AT  LEAST  0t£  WORK-CENTER  LIST  WILL  BE  HARKED  AS 
C*m  BEING  IN  MAINTENANCE  STATUS. 

C**t  THE  MAINTENANCE  BIT-VECTOR  IS  UPDATED  AT  THE  BEGINNING  OF 
Cm*  EACH  FLYING  CYCLE.  IT  IS  NOT  MAINTAINED  DURING  THE  FLYING  CYCLE. 
Cm*  SINCE  IT  IS  ONLY  fEEDED  AT  THE  START  OF  PRERIGHT  TO  DETERM  HE 
Cm*  THOSE  AIRCRAFT  WHICH  ARE  NOT  MISSION-CAPABLE  BECAUSE  THEY  ARE 
C*m  IN  AT  LEAST  ONE  WORK-CENTER.  IT  IS  MUCH  FASTER  TO  UPDATE 
C***  ONCE  EACH  RYING  CYCLE  RATHER  THAN  UPDATING  IT  EACH  TIME  A 
Cm*  WORK-CENTER  BREAK  OR  REPAIR  OCCURS. 

Cm 

C*m  INPUTS  - 


Cm  NUC  -  NUMBER  OF  WORK-CENTERS  BEING  SIMULATED 
Cm*  COMMON  INPUTS  - 

C*m  MASK(I)  -  CONTAINS  A  1  IN  THE  ITH  BIT  (COUNTING  FROM  LEFT) 

C*m  AND  ZEROES  EVERYWHERE  ELSE.  1=0,..., 35 

Cm*  LENGTH  -  LENGTH  (IN  WORDS)  OF  AIRCRAFT  BIT-VECTORS 

Cm*  IM?EPR(J)  -  NUMBER  OF  AIRCRAFT  IN  WORKCENTER-J. 

Cm*  LISTRP(I.J)  -  LISTRP(  .  ,J)  IS  A  LIST  OF  AIRCRAFT  NUMBERS 
Cm*  INDICATING  THOSE  AIRCRAFT  REQUIRING  MAINTENANCE  IN 

Cm*  T)C  JTH  WORK-CENTER  ( J=t ,2, . . .  .NWC).  THIS  LIST 

Cm*  CONTAINS  EXACTLY  INREPR(J)  AIRCRAFT  NUMBERS.  TO  SAVE 

Cm*  SPACE,  THESE  LISTS  HAVE  BEEN  PACKED  INTO  BIT-FIELDS 

Cm*  INSTEAD  OF  WORDS.  EACH  NUMBER  IS  STORED  IN  A  BIT-FIELD 

Cm*  "LFLD"  BITS  WIDE;  HENCE,  IF  'MAXBIT*  IS  THE  LENGTH 

C*«  OF  A  COMPUTER  WORD  ON  THIS  SYSTEM,  THEN  THERE  ARE 

CM*  (HAXBIT/LFLD)  BIT-FIELDS  STORED  PER  WORD.  THE  AIRCRAFT 

C**«  NUMBERS  STORED  IN  THESE  BIT-FIELDS  INDICATE  A  UNIQUE 

CM*  BIT-POSITION  IN  THE  VARIOUS  AIRCRAFT-STATUS  BIT- 

C*m  VECTORS.  THE  AIRCRAFT  ARE  NUMBERED, LEFT-T0-R1GHT, 

Cm*  0,1,2,...,(MAXAC-1>  .  TO  GET  TT€  ITH  AIRCRAFT  NUMBER 

C***  IN  A  WORK-CENTER  LIST,  T)€  CORRESPONDING 

Cm*  BIT-POSITION  AND  WORD-INDEX  MUST  BE  COMPUTED. 

C*m  OUTPUTS  - 

Cm*  MAINVC  -  MAINTENANCE  AIRCRAFT-STATUS  BIT-VECTOR.  EACH  BIT 
Cm*  REPRESENTS  AN  AIRCRAFT.  A  1  INDICATES  THE 

Cm*  CORRESPONDING  AIRCRAFT  IS  BEING  REPAIRED  IN  AT 

Cm*  LEAST  ONE  WORK-CENTER,  AND  0  INDICATES  THE 

C*M  AIRCRAFT  IS  NOT  CURRENTLY  IN  MAINTENANCE. 


CWHHMiinnnmuHnumimmwmmmmitmmmmmi 

C— 

PARAMETER  MAXWC=25 

PARAMETER  MAX AC= 1 08 , MAXB I T=3A, MAX VEC=2+ ( MAX AC- I ) /MAXBIT 
PARACETER  LFLD=7,NPERWRD=MAXBIT/LFLD,MXINWC=i+(fWXAC-l)/NPERWRD 
COMMON  /WCMAINT/  LISTRPfHXINWC.NAXWC),  INREPR(MAXWC) 

COMMON  /BITS/  MASKO,MASK(35),MLEFTO,MSKLFT(36), 
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<->  t>  n  <r>  no  on  o  o  a*  o  o  <">  o  *?*? 


&  IZCOUTi  I COUNT (63) 

DIMENSION  MAINVC(MAXVEC) 

C — 

C —  ^INITIALIZE  MAINTENANCE  BIT-VECTOR  TO  NO  AIRCRAFT 
CALL  ZERO(MAINVC.MAXVEC) 

—  *D0  FOR (EACH  WORK -CENTER) 

IF(NWC.EQ.O)  GO  TO  400 
DO  300  J=liNHC 

—  *00  WHILEISTILL  AIRCRtfT  IN  THIS  WORK-CENTER  MAINTENANCE  LIST) 

NUM  *  INREPR(J) 

IF(NUM.EQ.O)  GO  TO  200 
DO  100  I=liNUH 

—  *GET  NEXT  AIRCRAFT  NUMBER  ON  LIST  FROM  APPROPIATE  BIT-FIELD 

I AC  =  FLD(MOD<I-l,NPERWRD)CfLD.LFLD, 

LISTRP(l+(I-l)/fFERWRDtJ>) 

—  COMPUTE  WORD  AM)  BIT  POSITIONS  INDICATED  BY  THIS  AC  • 

I WORD  =  2  +  I AC/MAXBIT 
IBIT  *  MODI IACiMAXBIT) 

—  «MARK  CORRESPONDING  POSITION  IN  AIRCRAFT  NAINT  BIT-VECTOR 

MAIWC(IWORD)  =  OR(MAINVC<IMQRD).  MASK(IBIT)) 

—  tEND  DO  (WORK-CENTER  LIST  LOOP) 

100  CONTINUE 

200  CONTINUE 

—  *Offi  DO  (WORK-CENTER  LOOP) 

300  CONTINUE 

400  CONTINUE 

—  CONFUTE  TOTAL  AIRCRAFT  IN  MAINTENANCE  BY  COUNTING  1-BITS  IN 

C—  AIRCRAFT  MAINTENANCE  VECTOR 

MAINVC(l)  =  NIVECT(HAINVC) 

C — 

RETURN 

END 
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INTEGER  FUNCTION  NIBITS! IWORD) 


C++  N1BITS  -  COLNT  NUMBER  OF  1-BITS  IN  A  COMPUTER  WORD. 

Cm  N1BITS  IS  A  FORTRAN  SUBROUTINE  WHICH  WILL  RETURN  THE 
Cm  NUMBER  OF  1-BITS  IN  A  GIVEN  WORD.  THIS  ROUTINE  IS  SPECIFIC 
Cm  TO  A  COMPUTER  WITH  36-BIT  WORDS,  SINCE  IT  WORKS  BY  EXTRACTING 
Cm  6— BIT  FIELDS  FROM  THE  WORD.  IT  USES  EACH  6-BIT  FIELD  EXTRACTED 
Cm  AS  AN  INDEX  INTO  A  TABLE.  AM)  THE  ENTRIES  IN  THE  TABLE  CONTAIN  THE 
Cm  CORRESPONDING  NUMBER  OF  1-BITS  FOR  THAT  INDEX. 

Cm 

Cm  INPUT  - 

Cm  I  WORD  -  WORD  FOR  WHICH  THE  1-BITS  ARE  TO  BE  COUNTED 

Cm  OUTPUT  - 

Cm  N1BITS  -  NUMBER  OF  1-BITS  IN  THE  GIVEN  INPUT  WORD.  HENCE, 

Cm  NIBITS  RETURNS  AN  INTEGER  BETWEEN  0  AND  36. 

Cm  TABLE  USED  - 

Cm  ICOUNT(I)  -  NUMBER  OF  1-BITS  IN  TTC  BINARY  REPRESENTATION  OF  THE 
Cm  INDEX  I.  1=1,..., 63 


C — 

COMMON  /BITS/  MASK0,HASK(35) >  HLEFTO,  MSKLFT(36>, 
S.  IZCOUT,  IC0UNT(63) 

NIBITS  =  ICOUNTI  FUJI  0,6,IW0RD)  ) 

+  ICOUNTI  FLD<  6,6, IWORD)  ) 

♦  ICOUNTI  FLH( 12,6, IWORD)  > 

+  ICOUNTI  FUJI  18.6,  IWORD)  ) 

♦  ICOUNTI  FU)(24,6,  IWORD)  ) 

+  ICOUNTI  FLD(30,6, IWORD)  ) 

RETURN 
EM) 


L 

& 

& 

& 

Si 
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C*»M»iiimunuumiuiu.mnminmiH*.t.«M.*.iu««.t.*nH 

INTEGER  FUNCTION  NIVECT(IARRAY) 

CHHIHIHmillmHHHHHMimmillllllHUmHHHHUIUHH 

Cm  N1VECT  -  COUNT  NUMBER  OF  1-BITS  IN  A  BIT-VECTOR. 

Cm*  N1VECT  IS  A  FORTRAN  SUBROUTINE  WHICH  HILL  RETURN  T»C 
Cm.  NUfCER  OF  1-BITS  IN  TIC  WORDS  CCHWSING  A  GIVEN  INPUT  ARRAY. 

Cm.  NOT  INCLUDING  THE  FIRST  WORD.  THIS  ROUTINE  IS  USED  TO  COUNT 
Cm.  THE  NllffiER  OF  1-BITS  IN  THE  VMIOUS  AIRCRAFT-STATUS 
Cm*  BIT-VECTORS. 

Cm*  THIS  ROUTINE  IS  SPECIFIC  TO  A  36-BIT-HORD  COMPUTER.  SINCE  IT 
CM*  WORKS  BY  EXTRACTING  6-BIT  FIELDS  FROM  THE  ARRAY  WORDS.  IT  USES 
Cm.  EACH  6-BIT  FIELD  EXTRACTED  AS  Mi  INDEX  INTO  A  TABLE.  AM)  THE 
Cm*  ENTRIES  IN  THE  TABLE  CONTAIN  THE  CORRESPONDING  NUWER  OF  1-BITS 
Cm.  FOR  THAT  INDEX. 

Cm. 

Cm*  INPUT  - 

CM*  I  ARRAY  -  ARRAY  FOR  WHICH  TIC  1-BITS  ARE  TO  BE  COUNTED. 

Cm*  COMMON  TABLE  USED  - 

Cm*  I  COUNT  ( I )  -  NUMBER  OF  1-BITS  IN  TTC  BINARY  REPRESENTATION  OF  THE 
Cm*  INDEX  I.  1*1.. ...63 

Cm*  OUTPUT  - 

Cm*  N1VECT  -  NUMBER  OF  1-BITS  IN  TIC  GIVEN  IWUT  ARRAY. 

Cm*  EXCLUDING  TTC  FIRST  WORD. 

C»MHMHHHIHI»mi...*HHmn;HHH. MMWt  I 

c — 

PARAMETER  MAXAC*108.MAXBlT*36,MAXVEC*2.imXAC-l)/MAXBIT 
com*  /BITS/  MASK0.HASK<35).  MLEFTO.HSKLFT!36). 

1  I2CCJUT  -  ICOUNT  f  63) 

COTtOi  /ACSTATE/  LENGTH.  NACVC  ( HAXVEC ) .  IFLYVC(MAXVEC). 

L  HAINVC ( HAXVEC J.NORSVC! HAXVEC).  LQSTVC! HAXVEC) 

DIMENSION  I  ARRAY!  1 ) 

C— 

N1VECT  *  0 
DO  1000  1*2. LENGTH 
I WORD  *  IARRAY(I) 

N1VECT  *  N1VECT  *  ICOUNT!  FID!  0.6.IWORD)  ) 

h  ♦  ICOUNT!  FID!  6.6.IU0RD)  ) 

V  ♦  ICOLNT (  FUJI  12.6.  IWORD)  ) 

l  ♦  ICOLNT (  FLDU8-6.  IWORD)  ) 

6  *  ICOUNT!  FUH24.6.  IWORD)  ) 

L  ♦  ICOUNT!  FLD(30.6. IWORD)  ) 

1000  CONTINUE 
C— 

RETURN 

END 


04  3 


INTEGER  FUNCTION  NBINCM(PBINOM.NTRYS) 


C++  NBINON  -  GENERATE  RANDOM  SAMPLE  FROM  BINOMIAL  DISTRIBUTION. 

C++*  NBINON  GENERATES  A  RANDOM  SAMPLE  FROM  A  BINOMIAL  DISTRIBUTION 
Cm*  WITH  THE  GIVEN  INPUT  CHARACTERISTICS.  THIS  ROUTINE  USES  A 
Cm*  COMBINATION  OP  TWO  fETHODS  TO  GENERATE  THIS  SAMPLE.  FOR 
Cm*  BINOMIALS  WITH  RELATIVELY  SMALL  NUMBERS  OF  TRIALS.  THE 
C*m  STRAIGHTFORWARD  BERNOLLLI  TRIALS  METHOD  IS  USED.  FOR  LARGER 
Cm*  VALUES.  THE  INVERSE  TRANSFORM  METHOD  IS  USED. 

Cm*  NOTE  TWIT  THE  NUMBER  OF  FAILURES  IN  A  BINOMIAL  SAMPLE  IS 
Cm*  THE  COMPLEMENT  OF  THE  NWfflER  OF  SUCCESSES  IN  THAT  DRAW.  HENCE 
Cm*  THIS  ROUTINE  WILL  SAMPLE  FROM  THE  COMPLEMENTARY  BINOMIAL 
Cm*  DISTRIBUTION  OF  FAILURES  WIEN  THE  PROBABILITY  OF  SUCCESS  IS 
CM*  GREATER  THAN  .5  . 

Cm* 

Cm*  IW>UTS  - 

Cm*  PBINOM  -  PROBABILITY  CHARACTERISTIC  OF  THE  BINOMIAL. 

C***  PBINOM  ALSO  EQUALS  THE  PROBABILITY  THAT  THE 

CM*  BERNOULLI  VARIABLE  UNDERLYING  THIS  BINOMIAL  EQUALS  1. 

Cm*  NTRYS  -  NUMBER  OF  BERNOULLI  TRIALS  CHARACTERIZING  THIS 
C**«  BINOMIAL. 

C— 

COMMON  /RSEED/  SEED 

C— 

C—  INITIALIZE  SHELE  TO  NO  SUCCESSES 
NBINOM  *  0 

C — 

C —  *IF ( THIS  IS  NOT  A  SPECIAL  DISTRIBUTION  TO  BE  HANDLED  SEPERATELY) 
IFUPBINOM.LE.O.O)  .OR.  ( PBINOM. GE.  1.0! 
fc  .OR.  ( NTRYS. LE.4!)  GO  TO  3000 

C — 

C —  *DRAW  RAMOI  SAMPLE  FROM  UNIFORM  (0.1)  DISTRIBUTION 

RDRAW  =  IJNIFtll  (SEED) 

C — 

C —  *DETERHI!€  WHETACR  TO  StfFLE  SUCCESSES  CR  FAILURES 

PFAIL  =  AMAX1 (PBINOM. l.O-PBINOM) 

PSUCC  =  1.0  -  PFAIL 

C— 

C—  COMPUTE  QUICK  APPROXIMATION  TO  PROBfO  SUCCESSES) 

PROB  =  1.0  -  FLOAT (NTRYS ) *PSUCt 
IF(RBRAW.LE.PROB)  <30  TO  2000 

C— 

C—  COMPUTE  EXACT  PROBABILITY  OF  NO  SUCCESSES 
PROB  *  PFAILMNTRYS 

C— 

C —  *IF(R»COM  DRAW  DOES  NOT  FALL  WIT)!!.“.  THIS  PORTION  OF  THE  CDF) 

IF(RDRAU.LE.PROB)  GO  TO  2000 

C — 

C —  »INITIALIZE  LOOP  TO  FIND  APPROPRIATE  PLACE  IN  THE  CDF 
RATIO  =  PSUCC/PFAIL 
NPIUS1  *  NTRYS  ♦  1 


CDF  =  PROB 


C— 

♦DO  UNTIL(APPROPRIATE  CDF  INDEX  IS  FOtM» 

1000  CONTINUE 

C—  *UPDATE  SAMPLE  COUNTER 

NBINOM  =  NBINOM  ♦  1 

C — 

C—  ♦COMPUTE  NEXT  ENTRY  IN  CUMULATIVE  DISTRIBUTION  FUNCTION 

PROB  =  (FLOAT(NPLUSl-NBINOM)/FLOAT(NBINUM))*RATIOtPROB 
CDF  =  CDF  ♦  PROB 

C — 

C —  ♦END  DO  (CDF  LOOP) 

IFHRDRAW.GT.CDF)  .AND.  (NBINOM.LT.NTRYS))  GO  TO  1000 

C — 

C —  ♦END  IF  (0  SUCCESSES  TEST) 

2000  CONTINUE 

C — 

C —  COMPLEMENT  RESULT  IF  FAILURES  HERE  SMPLED 

IFfPBINOM.GT.  .5)  IffilNOM  =  NTRYS  -  NBINOM 

C — 

C—  ♦ELSE  (SPECIAL  CASES) 

GO  TO  7000 
3000  CONTINUE 

C — 

C — -  ♦IFOHIS  IS  A  DEGENRATIVE  DI$TRIBUTION)THEN 

IF((PBINOM.GT.O).AND. (PBINOM.LT. 1 .0).  Wffl. (NTRYS.GT.O) ) 
t,  GO  TO  4000 

C— 

C —  ♦SAMPLE  FROM  DISTRIBUTION  (IF  PBIN0H=O,  OR  NTRYS=0 

C —  THEN  HE  ARE  DONE) 

IF(PBINOM.GE.I.O)  NBINOM  =  NTRYS 

C— 

C—  *ELSE  (USE  BERNOULLI  TRIAL  fCTHOD) 

GO  TO  6000 
4000  CONTINUE 

C — 

C —  ♦PERFORM  APPROPRIATE  NUMBER  OF  BERNOULLI  TRIALS 

DO  5000  1=1, NTRYS 

IF(UNIFMKSEED).LE.PBINOM)  NBINOM  =  WINOM  +  1 
5000  CONTINUE 
C — 

C —  ♦£«)  IF  (DEGENERATIVE  DISTRIBUTION  TEST) 

6000  CONTINUE 

C — 

C —  ♦END  IF  (SPECIAL  CASES  TEST) 

7000  CONTINUE 

C — 

RETURN 

END 
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INTEGER  FUNCTION  NDMNDS( NBRKAC) 

C++  NDMNBS  -  GENERATE  SAMPLE  OF  TOTAL  SORTIE  PART  DEMANDS. 

Cm  NDMNDS  IS  A  FORTRAN  FUNCTICW  WHICH  GENERATES  A 
Cm  SAfffLE  NUMBER  OF  PARTS  DEMANDS  ON  A  SORTIE.  GIVEN  THE  TOTAL 
Cm  NUMBER  OF  AIRCRAFT  WHICH  BROKE  ON  THAT  SORTIE.  THE 
Cm  PROBABILITY  DISTRIBUTION  OF  TOTAL  PARTS  DEMANDS  IS  APPROXIMATED 
Cm  USING  EITHER  A  NORMAL  DISTRIBUTION  (IF  MEAN  IS  LARGE  ENOUGH  TO 
Cm  APPLY  THE  CENTRAL  LIMIT  THEOffcM)  OR  A  POISSON  DISTRIBUTION. 

Cm 

Cm  INPUTS  - 

Cm  NBRKAC  -  NUMBER  OF  AIRCRAFT  WHICH  BROKE  ON  THE  SORTIE 
Cm  COMMON  INPUTS  - 
Cm  ACMEAN  -  EXPECTED  VALUE  OF  TIC  RANDOM  VARIABLE  REPRESENTING 
Cm  THE  NUMBER  OF  PARTS  DEMANDS  PER  AIRCRAFT.  GIVEN 

Cm  THAT  THE  AIRCRAFT  HAS  BROKEN  UPON  RETURNING  FROM 

Cm  A  SORTIE. 

Cm  ACVAR  -  VARIANCE  OF  TOTAL  PARTS  DEMAND  PER  BROKEN  AIRCRAFT 

Cm  NPERAC  -  TOTAL  NUMBER  OF  PARTS  PER  AIRCRAFT.  THIS  IS  USED  TO 

Cm  ENSURE  THAT  A  LEGITIMATE  SAIflE  IS  GENERATED. 


K*I«33*S*S«SS2XS3  33*  «  *  ;  ;  ;  ;  ,  »  ***.I*S***X»""**«"*X  i,  1 2  a.-a.e  B  ?  « *.  g »»»,«,» 


c — 

PARAMETER  CUTOFF=0,0 
COMMON  /RSEED/  SEED 
COMMON  /DEMAND/  ACMEAN,  ACVAR,  NPERAC 

C— 

C —  ^INITIALIZE  SAMPLE  TO  NO  PARTS  DEHAWIS 

NDHNDS  =  0 

C— 

C —  +IFI THERE  WERE  ANY  BROKEN  AIRCRAFT) THEN 

IF ( NBRKAC. EQ.O)  GO  TO  300 

C — 

C —  ♦COtfVTE  MEAN  OF  DISTRIBUTION  OF  TOTtt.  DEMANDS 

C —  CORRESPONDING  TO  NUMBER  OF  BROKEN  AIRCRAFT 

FLTAC  =  FLOAT (NBRKAC) 

BMEAN  =  FLTAC  ♦  ACMEAN 

C — 

C —  *IF(EXPECTED  TOTAL  DEMANDS  IS  SMALL) THEN 

IF ( BMEAN. GT. CUTOFF)  GO  TO  100 

C— 

C—  +USE  POISSON  APPROXIMATION 

NDftfflS  =  IPOISSON(BtEAN.SEED) 

C — 

C —  +ELSE 

GO  TO  200 
100  CONTINUE 

C — 

C—  *(JS£  NORMAL  (VPROXIMATION 

BSTDEV  =  S8RT(FlTACtACVAR) 

NDMWS  =  MAX0(0,  INK  XNORMIBMEAN,  BSTDEV,  SEED)+.  5)) 

C— 

C—  *€N0  IF  (APPROXIMATION  TYPE  TEST) 
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200  CONTINUE 

C — 

C —  *£NSURE  THAT  A  FEASIBLE  ANSWER  HAS  BEEN  GENERATED 

NDMNDS  =  HINO(NDHNDS.IPERADWBRKAC) 

C — 

C—  *£ND  IF  (ZERO  BROKEN  AC  TEST) 

300  CONTINUE 
C — 

RETURN 

END 
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INTEGER  FUNCTION  NORSACINPARTS, IQPA.N6ACK0) 

C++  NORSAC  -  CALCULATE  INITIAL  NUMBER  OF  NORS  AIRCRAFT. 

C+++  NORSAC  IS  A  FORTRAN  FUNCTION  WHICH  CALCULATES  THE  CURRENT 
C++*  NUMBER  OF  NORS  AIRCRAFT  -  ASSUMING  PERFECT  CMNIBALIZATIQN. 

C++* 

C++*  INPUT  - 

C++*  NPARTS  -  TOTAL  NUMBER  OF  PART  TYPES. 

C++*  IQPA(K)  -  NUMBER  OF  TYPE-K  PARTS  INSTALLED  ON  EACH  AIRCRAFT. 

C++*  NBACKO(K)  -  NUMBER  OF  BACKORDERS  FOR  PARTS  OF  TYPE-K. IF 

C++*  NBACKO(K)  IS  POSITIVE.  THEN  UNFULFILLED  REQUESTS 

C++*  FOR  PARTS  OF  THIS  TYPE  HAVE  BEEN  MADE.  IF  IT  IS 

C++*  NEGATIVE,  THEN  NBACKO(K)  INDICATES  THE  NUMBER  OF 

C++*  OF  PARTS  ON-THE-SHELF. 

C++*  OUTPUT  - 

C++*  NORSAC  -  CURRENT  NUMBER  OF  NORS  AIRCRAFT  BASED  ON  THE  GIVEN 
C++*  BACKORDER  AND  QPA  INFORMATION  AND  ASSUMING  PERFECT 

C++*  CANNABILIZATION. 


I  S  *  IT  I  s  s  s  s.x  s.s  s  i  is  2  2  Z  2  2  2  2  2  5  S  S  SIS  2  2  2  1 2  I  I'S 


c— 

DIftNSION  NBACKOl NPARTS),  I 9PA( NPARTS) 

C— 

C—  +INITIALIZE  NUMBER  OF  NORS  AIRCRAFT  TO  NONE 
NORSAC  =  0 

C— 

C —  +00  FOR(EACH  PART  TYPE) 

DO  2000  K=l, NPARTS 

C— 

C —  *IF(Tf€SE  PWTS  CAUSE  THE  MAX  NUMBER  OF  NORS  THUS  FAR) 

IF (NORSAC* IQPA(K)  .GE.  NBACKO(K))  GO  TO  1000 

C — 

C—  +UPDATE  NUMBER  OF  NORS  AIRCR^T 

NORSAC=iNT(FLOAT(NBACKO(K> )/FLOAT( IQPA(K) )  +  .W> 

C — 

C —  +END  IF  (NEW  NORS  MAXIMUM  TEST) 

1000  CONTINUE 

C — 

C —  +END  DO  (PARTS  LOOP) 

2000  CONTINUE 

C— 

RETURN 

END 
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C++  NORSBK  -  DETERMINES  NORS  AIRCRWT  FROM  A  SORTIE. 

Cm*  NORSBK  IS  A  FORTRAN  FUNCTION  WHICH  CALCULATES  THE  NUMBER 

Cm*  OF  NORS  AIRCRAFT  RESULTING  FROM  A  SORTIE  WITH  A  SPECIFIED  NUMBER 

C***  OF  BROKEN  AIRCRAFT  ~  ASSUMING  IMMEDIATE  AND  MAXIMUM 

C*«*  CANNABIIIZATIQN  OF  PARTS.  NORSBK  DETERMINES  THE  TOTAL 

C«*  NUMBER  AND  DISTRIBUTION  OF  THE  PARTS  DENWDS  RESULTING  FROM  THIS 

Cm*  SORTIE.  IT  UPDATES  FOR  EACH  PART  TYPE  DEMANDED,  THE 

Cm*  NUMBER  OF  PARTS  GN-THi-SHELF,  BACKORDERED,  AND  IN  RESUPPLY. 

Cm* 

C*m  INPUTS  - 

Cm*  NBRKAC  -  NUMBER  OF  AIRCRAFT  WHICH  BROKE  DURING  Tt£  SORTIE 

Cm*  NOROLD  -  NUMBER  OF  NORS  AIRCRtfT  BEFORE  THIS  LATEST  SORTIE. 

C*m  COMMON  INPUTS  — 

CM*  IQPA(K)  -  NUMBER  OF  TYPE-K  PARTS  INSTALLED  ON  EACH  AIRCRAFT. 

Cm*  INFPART  -  LOGICAL  FLAG  INDICATING  WHETHER  THE  I  (FINITE  PARTS 

Cm*  ASSUMPTION  HOLDS.  IF  INFPART  IS  TRUE  THEN  THERE 

Cm*  IS  NEVER  ANY  SHORTAGE  CP  PARTS!  HENCE,  NO  NORS  AC. 

Cm*  COMMON  INPUTS/OUTPUTS  - 

Cm*  NBACKOtK)  -  NUMBER  OF  BACKORDERS  FOR  PffiTS  OF  TYPE-K.  IF 
C**+  NBACKO(K)  IS  POSITIVE,  THEN  UNFULFILLED  REQUESTS 

Cm*  FOR  PARTS  OF  THIS  TYPE  HAVE  BEEN  MADE.  IF  IT  IS 

Cm*  NEGATIVE,  THEN  NBACKO(K)  INDICATES  THE  NUMBER 

Cm*  OF  PARTS  ON-THE-SHELf. 

Cm*  OUTPUT  - 

Cm*  NORSBK  -  NUMBER  OF  NORS  AIRCRAFT  AT  THE  END  OF  THIS  SORTIE 
C*m  ASSUMING  MAXIMUM  AND  IMMEDIATE  CANNABILIZATION. 


C — 

PARAItTER  MAXPRT=304,  MAXCYC=10 

COMMON  /PARTS/  NPARTS, IQPA(MAXPRT) ,NBACKO<MAXPRT) , 

4  BRPRATE(MAXPRT) , DRPRATEIMAXPRT ) , INITSJ(NAXPRT) , RESUPP(MAXPRT) . 

4  BNRTS ( MAXPRT ) , NBASE ( MAXPRT ) , NDEPOT ( MAXPRT ) 

COMMON  /INPUT/  INITUE,  NAC.  PATTRIT,  IRES,  RNMCM,  INFPART, 

4  MAXFLY(HAXCYC),  INFMAN,  ISCALE.  IAUGMNT 

LOGICAL  INFPART 

C — 

C—  ^INITIALIZE  NEW  NORS  TO  OLD  NUMBER  OF  NCKS  AIRCRAFT 
NORSBK  =  NOROLD 
C— 

C —  *IF< THERE  ARE  ANY  BROKEN  AIRCRAFT  AND 

C —  INFINITE  PARTS  NOT  ASSUMED) THEN 

IF(NBRKAC.EG.O)  GO  TO  5000 
IF ( INFPART )  GO  TO  5000 

C— 

C—  *DETERMI(E  TOTAL  NUMBER  OF  PARTS  DEMANDS  FROM  THESE  BROKEN  AC 

NDEMS  *  NWW)S(NBRKAC) 

C— 

C —  *IF(ANY  PARTS  WERE  DEMANDED) THEN 

IFfUJEMS.EQ.O)  GO  TO  4000 

C— 
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C —  *D0  FOR (EACH  PMT  DEMAND) 

DO  3000  I=1.NDEMS 

—  *DETERMIN£  PART-TYPE  FOR  THIS  DEMAND  BY  SAMPLING 

—  FROM  A  MULTNOHIAL  DISTRIBUTION 
KTYPE  =  MN0M( ) 

—  *UPDATE  BACXORIERS  FOR  THIS  PART  TYPE 

NBACKO(KTYPE)  =  NBACKOt KTYPE)  +  I 

—  *IF(«4  UNFULFILLED  DEMAND  HAS  OCCURRED) THEN 

IF(NBACKO(KTYPE).LE.O)  GO  TO  2000 

—  *IF(THIS  DEMAND  CAUSES  A  NEW  N0RS  ACiTHEN 

IF < N0RSBK*IQPA ( KTYPE ). GE. NBACK0I KTYPE) ) 

GO  TO  1000 

—  * INCREMENT  NUMBER  OF  NORS  AIRCRAFT 

NORSBK  =  NORSBK  +  1 

IF((NORSBK-NOROLD).GE.NBRKAC)  GOTO  5000 

—  *£ND  IF  (NEW  NORS  AIRCRAFT  TEST) 

1000  CONTINUE 

—  *END  IF  (UNFULFILLED  DEMAND  TEST) 

2000  CONTI NIC 

—  *END  DO  (DEMAND  LOOP) 

3000  CONTINUE 

—  *£ND  IF  (ZERO  DEMANDS  TEST) 

4000  CONTINUE 

—  *END  IF  (NO  BROKEN  AC  OR  INFINITE  PWTS  TEST) 

5000  CONTI NLE 

C— 

RERUN 

END 
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INTEGER  FUNCTION  NREPS (TIf£T,(*EPJ, NCRWSJ, SRATEJ) 

C++  mPS  -  RANDOM  SAMPLE  OF  AIRCRAFT  REPAIRS  IN  A  WORK  CENTER. 

C++*  ('(REPS  IS  A  FORTRAN  FUNCTION  WHICH  fCTURNS  A  SAMPLE  NUMBER 
C++*  OF  AIRCRAFT  REPAIRED  IN  A  WORK CENTER.  BASED  ON  THE  LENGTH  OF  THE 
C+++  REPAIR  PERIOD,  NUMBER  OF  SERVERS,  REPAIR  RATE  FOR  EACH  SERVER, 

C+*+  AND  THE  NUMBER  OF  AIRCRAFT  IN  THE  WORKCENTER  AT  THE  START  OF 
C++*  THE  REPAIR  PERIOD.  IT  IS  ASSUfED  THAT  NO  NEW  AIRCRAFT  ARRIVE 
C++*  DURING  THE  REPAIR  PERIOD,  AND  REPAIR  TIPCS  ARE  EXPONENTIALLY 
C**+  DISTRIBUTED,  WITH  THE  SAME  DISTRIBUTION  APPYING  TO  EACH  SERVER 
C++*  INDEPENDENTLY. 

C+++ 

C++*  INPUTS  - 

C++*  TIMET  -  LENGTH  (IN  HOURS)  OF  M  REPAIR  PERIOD. 

C++*  NREPJ  -  NUMBER  OF  AIRCRAFT  IN  THE  WORKCENTER  AT  THE 

C++*  START  OF  THE  REPAIR  PERIOD. 

C++*  NCRWSJ  -  NUMBER  OF  REPAIR  CREWS  (SERVERS)  FOR  THIS 
C++*  WORKCENTER. 

C++*  SRATEJ  -  REPAIR  RATE  (AIRCRAFT/HOUR)  FOR  EACH  CREW  IN 
C++*  THIS  WORKCENTER. 

C++*  COMMON  INPUT/OUTPUT  - 

C++*  SEED  -  SEED  FOR  RANDOM  NUMBER  GENERATOR. 

C++*  OUTPUT  - 

C++*  NREPS  -  NUMBER  OF  AIRCRAFT  REPAIRED  IN  THIS  WORKCENTER 
C++*  DURiNG  THE  REPAIR  PERIOD.  NREPS=0- 1,2,... > NREPJ 

C++ M  **+++***  +  ++*+++»**++»**+*+*++*++++**+++♦**♦***+ **  +  *  +  *+♦***++*++++ 

C — 

COMMON  /RSEED/SEED 

C— 

C —  *IF(NUMBER  OF  AC  IN  REPAIR  IS  LESS  THAN  THE  NUMBER  OF  CREWS) 

IF ( NREPJ. GT. NCRWSJ)  GO  TO  1000 

C— 

C —  * DETERMINE  NUMBER  OF  AIRCRAFT  REPAIRED  BY  SAMPLING 

C—  FROM  THE  APPROPRIATE  BINOMIAL  DISTRIBUTION 

NREPS  =  NREPJ  -  NBINOM(  EXP(-SRATEJ*TI(tT)  ,  NREPJ  ) 

C — 

C —  +ELSE  (MORE  AIRCRAFT  THAN  CREWS) 

ISO  TO  4000 
1000  CONTINUE 

C— 

C —  ^INITIALIZE  VARIABLES 

NREPS  =  0 
CUMP  =  1.0 

MAXREP  =  fKEPJ  -  NCRWSJ  +  1 
CURATE  =  FLOAT i NCRWSJ ) +SRATE J 
EXPTYM  =  EXP ( -CWRATE+TIMET ) 

C— 

C —  *00  UNTIL (A  SERVER  BECOMES  IDLE  OR  THE  NEXT  AIRCRAFT 

C —  DEPARTURE  TIME  EXCEEDS  LENGTH  OF  REPAIR  PERIOD) 

2000  CONTINUE 

C— 

C —  +GENERATE  AND  ACCUMULATE  NEXT  AIRCRAFT  DEPARTURE  FROM 
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C —  THIS  WORK CENTER 

CUMP  =  CUMP  *  UNIFHHSEED) 

♦EXIT  LOOP,  IF  REPAIR  TIIES  EXCEED  TIME  INTERVAL  LENGTH 
IF(CUMP  .LT.  EXPTYM)  GO  TO  3000 

♦INCREMENT  NUMBER  OF  AIRCRAFT  REPAIRED 
NREPS  =  NREPS  ♦  1 

♦END  DO  (REPAIRED  AIRCRAFT  LOOP) 

IF(NREPS.LT.MAXREP)  GO  TO  2000 

♦♦A  SERVER  HAS  JUST  BECOME  IDLE,  PERFORM  A  BINOMIAL  DRAW 
TO  DETERMINE  HOW  MANY  MORE  AC  ARE  REPAIRED 

♦COMPUTE  TIfC  LEFT  IN  THE  INTERVAL 

(LENGTH  OF  REPAIR  PERIOD)  -  (TIME  OF  LAST  REPAIR) 
TLEFT  =  TIMET  +  ALOG(CUMP)/CWRATE 

COMPUTE  PROBABILITY  AN  AIRCRAFT  IS  NOT  REPAIRED 
IN  THE  REMAINDER  OF  THE  INTERVAL 
PNOREP  =  £XP(-SRATEJ* TLEFT) 

♦GENERATE  A  BINOMIAL  DRAW  TO  DETERMINE  NUMBER  OF 

REMAINING  AIRCRAFT  WHICH  ARE  NOT  REPAIRED 
NOTREP=NB I N0M( PNOREP, NCRWSJ-1' 

♦COMPUTE  TOTAL  AIRCRAFT  REPAIRED  DO  ING  PERIOD 
NREPS=NREPJ-N0TR£P 


CXIT  FROM  DO  LOOP 
3000  CONTINUE 

C — 

C —  CND  IF  (MORE  AIRCRAFT  THAN  CREWS  TEST) 

4000  CONTINUE 

C— 

RETURN 

END 
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SUBROUTINE  PRINTO 


C++  PRINTO  -  PRINT-OUT  RESULTS  OF  T)£  SIMULATION  RUN. 

C**t  THIS  ROUTINE  PRINTS  THE  RESULTS  OF  THE  SON  SIMULATION. 

C**+  THESE  RESULTS  CONSIST  OF  THE  AVERAGE  NUMBERS  CF  AIRCRAFT  IN 
C*«  THE  VARIOUS  POSSIBLE  AIRCRAFT  STATES  AT  THE  START  OF  EACH 
C***  SORTIE  PERIOD  FOR  EACH  FLYING  DAY  OF  THE  SCENARIO.  THE  AVERAGE 
C*«  SORTIES  PER  AIRCRAFT  PER  DAY  IS  COMPUTED.  AND  ALSO  PRINTED. 

C++*  THESE  SORTIES  PER  AIRCRAFT  PER  DAY  FIGURES  AND  THE  TOTAL  SORTIE 
C++*  PRODUCTION  PER  DAY  ARE  PRINTED  TO  A  SCRATCH  FILE  (FILE  07)  TO  BE 
C**+  USED  AS  INPUT  FOR  SORTIE  PLOTS. 


C — 

PARAMETER  «AKAC=  108 ,  HAX WC=25,  MA)CBIT=36 ,  MAXPRT=304 > 
i  MAX VEC=2+  ( MAX AC- 1 ) /MAXB I T 

PARASETER  MAXDAY=30.MAXCYC=10,MAXSTAT=5 
COMMON  /STATS/  EXPECT ( MAXSTAT , MAXCYC >  MAXDAY ) . 

S.  NRESRV,  IZDAY,  ITOTRES(MAXDAY),  LOSSTOT 

COMMON  /TIME/  PRERITE, SORTLGTH.HAITCYC. 

Sr  TYMNITE.NSIM,  ISIM,NUHDAY,  IDAY,NCYCLES>  ICYCLE 

COMMON  /INPUT/  INITUEiNAC.PATTRIT, IRES.RNMCM, INFPART, 

S.  MAXRY(MAXCYC),  INFMAN.ISCALE,  IAUGMNT 

COMMON  /UCINPUT/  NWC,  NCREWS(MAXUC),  SRATE(MAXWC) 

C — 

C—  +PRINT  EXPECTED  NUMBER  OF  AVAILABLE  AIRCRAFT  FOR  EACH  SORTIE  PERIOD 
WRITE  (6,9005) 

TOTFLY  =  0.0 

WRITE  (7)  FLOAT ( I SCALE ) , M.WDAY 
FSIM  =  FLOAT(NSIM) 

DO  6000  J=1,NUMDAY 

SORTYDAY  =  EXPECTd,  1,  J) 

OFFSCENE  =  EXPECT  (4, 1 ,  J)  +€XF>ECT  (5,  l ,  J> 

WRITE(6,9M8)  J,1,(EXPECT(H,1,J)/FSIM,M=I,5) 

DO  5000  1=2,  NCYCJ-ES- 1 

WRITE  (6,9006)  I, (EXPECT(M, I,J)/FSIM,M=i,4> 

SORTYDAY  =  SORTYDAY  +  EXPECTd,  I,  J) 

OFFSCENE  =  OFFSCENE  +  EXPECT(4, I,J)  +  EXPECT(3,I,J> 

5000  CONTINUE 

I  =  NCYCLES 

SORTYDAY  =  (SORTYDAY  +  EXPECTd,  I,J))/FSIN 

OFFSCENE  =  (OFFSCEIE  +  EXPECT(4,I,d)  +  EXPECT(5. I,J> )/FSIM 

AONSCENE  =  NCYCLES*(  INITUE+ITOTRESU))  -  CFFSCEIC 

SORTYAC=NCYCLES*SORTYDAY/ACNSCENE 

WRITE  (6,9009)  I, EXPECTd, I, J)/FSIM, SORTYDAY, 

Sr  SORTYAC,  (EXPECT(H,I,J)/FSIM,M=2,4) 

TOTaY  *  TOTaY  +  SORTYDAY 

C — 

C —  *WRITE  THE  MEAN  SORTIES  PEP  DAY  (FOR  EACH  DAY)  TO  A  FILE  TWT 

C —  COULD  BE  USED  BY  'CALLPLT2'  TO  PRODUCE  A  aOT. 

WRITE  (7)  SORTYAC,  SORTYDAY 
WRITE(6,9003)  TOTaY 
6000  CONTINIE 


WRITE  (6,9010)  TOTFLY 


C— 

RETURN 

9002  FORMAT(V) 

9003  FORMAT  (F26.1) 

9005  FORMAT  (  T///10X, 'SORTIES/  SORTIES/  SORTIES/', 21X, 

S,  'C «1.  RES.'/ 

$,  '  DAY  PER  PERIOD', 5X, 'DAY',8X> 'AC',4X> 

&  '  NHCM  NHCS  LOSSES  LEFT'//) 

9006  FORMAT  ('  ',2X,I5,F9.1,F29.1,F9.1,F8.D 

9008  FORMAT  ('  ',I2,I5,F9.1,F29.1,F9.1,F8.1,F8.1) 

9009  FORMAT  ('  ',2X,I5,F9.1,F9.1,F11.2,2F9.1,2F8.D 

9010  FORMAT  (//'  TOTAL  SORTIES  ROWN  =',FU.  1) 

END 
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SUBROUTINE  PflTREPiRTIME.PBRKSEO, INOXUC . NORSVC > 

Cm  PRTREP  -  SIMULATES  PROCESS  OF  REPAIRING  PARTS. 

Cm*  PRTREP  IS  A  FORTRAN  SUBROUT  1*  WHICH  SIMULATES  THE  PROCESS 
C***  OF  REPAIRING  PMTS.  PARTS  REPAIR  IS  ASSUCD  TO  BE 
C***  EXPONENTIAL  WITH  AN  IIEINITE  NUMBER  OF  SERVERS.  I.E.  NO  P«T 
C*M  ever  HAS  TO  WAIT  TO  BEGIN  SERVICE.  IN  AGOITION  TO  REPAIRING 
CM*  PARTS.  THIS  FUNCTION  CALCULATES  T>€  NEW  NUMBER  OF  NURS  AIRCRAFT 
Cm*  REMAINING  AFTER  REPAIR  OF  TTCSE  PARTS.  IF  ANY  PREVIOUSLY  NORS 
C*m  AIRCRAFT  ARE  READY  TO  GO  INTO  MAINTENANCE.  THIS  ROUTHC 
C»m  WILL  DISTRIBUTE  TtCM  PROBABILISTICALLY  AMONG  TTC  VARIOUS 
Cm*  WORN  CENTERS. 

Cm* 

Cm*  INPUT  - 
L*m  RTIME 
Cm* 

C*** 

C***  PBRKSEQ 
Cm* 

Cm* 

Cm.  I  HUT /OUTPUT 
Cm*  NORSVC 
C»m 
Cm* 

C*** 

Cm* 

C*m 
Cm* 

Cm* 

C**«  COMMON  INPUT 
Cm*  INFPART 
Cm* 

Cm* 

Cm* 

Cm*  NPARTS 
C*m  IQPA(K) 

Cm*  RPRATE(K) 

Cm*  INITSJOO 
C*m  i  0*t10N  1MUT/0UTPUT  - 

Cm*  NMCKOIK)  -  NUWER  OF  BACXORDERS  FOR  PARTS  OF  TYPE-K.IF 
Cm*  NBACXOIIO  IS  POS'TIVE,  TTCN  UNFULFILLED  REQUESTS 

C»m  FOR  PARTS  OF  THIS  TYPE  HAVt  BEEN  HADE.  IF  IT  IS 

Cm*  NEGATIVE.  T>€N  NBACXOdk)  IWICATES  TIC  NUWEF  OF 

Cm*  OF  PARTS  ON-TTC-STCLF. 

. . I 

c — 

PARAMETER  HAXPRT*30«,  MAXCYCMO 
COMMON  /PARTS/  NPARTS.IflPA(NAXPRT),WACKO(  HAXPRT). 

I  BRPRATE  ( HAXPRT ) . ORPRATE ( HAXPRT ) . INI TSJ( HAXPRT ) , PESUPP ( MAXPRT ) , 

4  BNRTS (MAXPRT ) . NBASE ( HAXPRT ) .  WEPOT ( MAXPRT ) 

COMMON  /IWUT/  INITIJE,  NAC.  PATTRIT,  IRES,  RftCM.  INFPART, 
t  HAXFLY(HAXCYC) ,  INFMAN,  I  SCALE,  IAUGMNT 


-  AVERAGE  TIK  (IN  HOURS)  THESE  PttTS  HAVE  BEEN 
IN  REPAIR  SINCE  T>€  LAST  TIfC  PttTS  REPAIR  WAS 
SIHLLATED. 

-  2-DIMENSIONAL  ARRAY  USED  TO  DETERMINE  TTC 
DISTRIBUTION  OF  ABORTS  INTO  TTC  VARIOUS 
UORKCENTERS. 

-  NORS  AIRCRAFT  STATUS  VECTOR.  INDICATES  THOSE 
AIRCRAFT  WHICH  ARE  NORS  DUE  TO  UNAVAILABLE  PARTS. 
THE  FIRST  WORD.  NORSVC(l),  CONTAINS  THE  TOTAL 
NUMBER  OF  1-BITS  IN  THE  NORS  STATUS  VECTOR. 

ARRAY  IS  A  BIT  VECTOR  WITH  EACH  BIT  REPRESENTING 
AN  AIRCRAFT.  A  1-BIT  IWICATES  THE  AIRCRAFT  IS 
STILL  FLYABLE.  NOTE  THAT  IFLYVCU)  ALSO  IWICATES 
THE  NUMBER  OF  1-BITS  IN  THIS  BIT  VECTOR. 

-  LOGICAL  FLAG  INDICATING  WHETHER  THE  INFINITE  PARTS 
ASSUMPTION  HOLDS.  IF  INFPART  IS  TRUE  THEN  THERE 

IS  NEVER  ANY  SHORTAGE  OF  PWTSl  HENCE.  NO 
NORS  AC. 

-  NUMBER  OF  PART  TYPES  BEING  MODELED. 

-  NUWER  OF  TYPE-K  PARTS  INSTALLED  ON  EACH  AIRCRAFT. 

-  REPAIR  RATE  (PARTS/HOUR)  FOR  TYPE-*  PARTS 

-  INITIAL  BASE  STOCK  LEVEL  FOR  TYPE-K  PARTS. 
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DIMENSION  NORSVC(l) 

LOGICAL  INFPART 

—  ^INITIALIZE  NEW  NUMBER  OF  NORS  AIRCRAFT  TO  NONE 

NEWNOR  =  0 

—  *IF(  INFINITE  PARTS  NOT  ASSlf£D)T)€N 

IF( INFPART)  GO  TO  5000 

—  *D0  FOR  (EACH  POT  TYPE) 

DO  3000  K=1>NPOTS 

—  ♦IFITHERE  ARE  ANY  OF  THIS  PART  IN  REPAIR) THEN 

INSHPK  =  NBACKO(K)  ♦  INITSJ(K) 

IF(INSHPK.LE.O)  GO  TO  2000 

—  ♦DETERMINE  NUMBER  OF  THESE  WHICH  ARE  NEW  DEMANDS 

NEW  =  INSHPK  -  (NDEP0T0O  +  NBASE(K)) 

—  ♦PERFORM  BINOMIAL  DRAW  TO  DETERMINE  BASE/DEPOT  SPLIT 

NEWDEP=NBINOM(BNRTS(K)>NEW) 

NDEPOT(K)=NDEPOT(K)+NEWDEP 

NBASE(K)=NBASE(K)+(NEW-NEWDEP) 

—  COfFUTE  PROBABILITY  OF  REPAIR 

PDEP  =  1.0  -  EXP(-ORPRATE<K)OTTNE) 

PBSE  -  1.0  -  EXP(-8RPRATE<K>«TIME) 

—  ♦DETERMINE  NUMBER  OF  PARTS  REPAIRED  BY  SAMPLING 

—  FROM  THE  APPROPRIATE  BINOMIAL  DISTRIBUTION 
NUHDEP  =  NBINOM(PDEPiNDEPOTtK)) 

NUMBSE  =  f®  I NOM  (PBSE  i  NBA  SEIKO 

—  ♦UPDATE  NUMBER  IN-SHOP  AND  BACKORDERED 

NBACKO(K)  =  NBACKO(K)  -  (NUHDEP  +  NUMBSE) 

NDEPOT(K)  =  NDEPOT(K)  -  NlMDEP 
NBASE(K)  =  NBASE(K)  -  NUMBSE 

—  ♦IFITICSE  PARTS  CAUSE  THE  MAX  NUMBER  OF  NORS  THUS  FAR) 

IF(NEWN0R«I9PA(K)  .GE.  NBACKO(K) )  GO  TO  1000 

—  ♦UPDATE  NUMBER  OF  NORS  AIRCRAFT 
NEWMOR=INT(FLOAT(NBACKO(K) )/FLOAT( IQPA(K) >  +  .999) 

—  ^END  IF  (NEW  NORS  MAXIMUM  TEST) 

1000  CONTINUE 

—  *END  IF  (NO  PARTS  IN  REPAIR  TEST) 

2000  CONTINUE 

—  ♦END  DO  (PARTS  LOOP) 

3000  CONTINUE 

—  ♦IF! ANY  PREVIOUSLY  NORS  AIRCRAFT  ARE  READY  FOR  REPAIR) THEN 
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MORE IF  *  NORSVCU)  -  NEMNOR 
F(NORDIF.LE.O)  GO  TO  4000 

—  * SELECT  LEFTMOST  MORS  AIRCRAFT  TO  ENTER  MAINTENANCE 

CAU.  HCDIST(NCRDIF.PBRKSEQ.INDXMC.NORSVC) 

—  *QC  IF  (NEW  NONNORS  AC  TEST) 

4000  CONTINUE 

—  «END  IF  (INFINITE  PARTS  TEST) 

5000  CONTINUE 

C — 

RETURN 

EDO 
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SUBROUTINE  PSTAT (PBREAK iNPARTS. IQPA.DEMANO* 
k  ACMEANi ACVARi NPERAC) 

CiiHHHiimminnnmniii«mmnmnmiiniiminmm 
C++  PSTAT  -  CALCULATES  STATISTICS  FOR  TOTAL  PART  DEHANDS. 

C«#  PSTAT  IS  A  FORTRAN  ROUTINE  WHICH  CALCULATES  THE  MEAN 
C++*  AND  VARIANCE  OF  THE  RANDOM  VARIABLE  REPRESENTING  THE  TOTAL 
Cm  NUMBER  OF  PART  DEMANDS  FROM  AN  AIRCRAFT  WHICH  HAS  BROKEN  UPON 
Cm  RETURNING  FROM  A  SORTIE. 

Cm 

Cm  INPUTS  - 

Cm  PBREAK  -  PROBABILITY  THAT  AN  AIRCRAFT  BREAKS  UPON  RETURNING 
Cm  FROM  A  SORTIE. 

Cm  fPARTS  -  NUMBER  OF  PART  TYPES  BEING  MODELED  FOR  THIS  TYPE 
Cm  OF  AIRCRAFT. 

Cm  IGPA(K)  -  QUANTITY  PER  AIRCRAFT  FOR  TYPE-K  PARTS. 

Cm  DENAND(K)  -  PROBABILITY  THAT  A  GIVEN  TYPE-K  PART  WILL  BE 
Cm  DEMAtfED  BY  AN  AIRCRAFT  RETURNING  FROM  A  SORTIE. 

Cm  OUTPUTS  - 

Cm  ACMEAN  -  MEAN  OF  THE  RANDOM  VARIABLE  REPRESENTING  NUMBER 
Cm  OF  PART  DEMANDS  PER  BROKEN  AIRCRAFT. 

Cm  ACVAR  -  VARIANCE  OF  TOTAL  P<#T  DEMANDS  PER  BROKEN  AIRCRAFT 

Cm  NPERAC  -  TOTAL  NUffiER  OF  PARTS  PER  AIRCRAFT.  THIS  IS  USED 

Cm  TO  ENSURE  THAT  A  LEGITIMATE  SAMPLE  IS  GEfERATED. 


c— 

DIMENSION  IQPA(NPARTS).  DEMAND (NPARTS) 

C— 

C—  +INITIALIZE  STATISTICS 
ACMEAN  =  0.0 
ACVAR  =  0.0 
NPERAC  =  0 

C — 

C—  *00  FORfEACH  PART  TYPE) 

DO  1000  K=1,TPARTS 

C— 

C —  ^ACCUMULATE  STATISTICS 

PRTYPE  =  IQPA(K)  «  DEHANDOO 

ACMEAN  =  ACfEAN  +  PRTYPE 

ACVAR  =  ACVAR  ♦  PRTYPE* (PBREAK-DEMAND(K)) 

NPERAC  =  fraAC  +  IQPA(K) 

C — 

C —  *END  DO  (PART  LOOP) 

1000  CONTINUE 

C— 

C—  *C0MPLETE  MEAN/VARIANCE  COffVTATIONS 
ACMEAN  =  ACMEAN/PBREAK 
ACVAR  =  ACVAR/ ( PBREAK*PBREAK ) 

C— 

RETURN 

EM) 


SUBROUTINE  R£PAIR(TIMET,NWC, NCREWS, SRATE) 


C++  REPAIR  -  SIMULATES  PROCESS  OF  WORK  CENTER  AIRCRAFT  REPAIR. 

Cm#  REPAIR  IS  A  FORTRAN  ROUTINE  WHICH  SIMULATES  THE 
C+*+  PROCESS  CF  REPAIRING  AIRCRAFT  IN  ALL  WORKCENTERS  DURING  A 
C++*  SPECIFIED  TIME  PERIOD.  A  NUMBER  OF  REPAIRED  AIRCRAFT  IS  GENERATED 
Cm  FOR  EACH  WORKCENTER,  BY  SAMPLING  FROM  THE  APPROPRIATE  PROBABILITY 
Cm*  DISTRIBUTIONS.  THIS  ROUTINE  SIMPLY  UPDATES  THE  TOTAL  NO.  OF 
C**+  AIRCRAFT  IN  REPAIR  IN  EACH  WORKCENTER;  IT  DOES  NOT  CONCERN 
Cm*  ITSELF  WITH  WHICH  PARTICULAR  AIRCRAFT  IN  A  W/C  ARE 
Cm*  BEING  REPAIRED.  NOR  THE  TOTAL  NO.  OF  AIRCRAFT  IN  MAINTENANCE. 

CM*  imiCITLY.  IT  IS  ASSUMED  THAT  WE  ARE  REPAIRING  THE  RIGHTMOST 
CM#  AIRCRAFT  ON  A  LIST  OF  AIRCRAFT  THAT  NEED  WORK  IN  A  GIVEN  W/C. 

CM#  AND  THAT  IF  AIRCRAFT  ME  PLACED  ON  THAT  LIST  (IN  ROUTINE 
C*M  'WCDISn  IN  A  RANDOM  ORDER,  THEN  THIS  METHOD  OF  REPAIR  IS 
CM*  ALSO  RANDOM;  I.E..  IT  DOESN'T  FAVOR  LOW-NLMBEREL  A/C,  OR 
Cm#  HIGH-NUMBERED  A/C,  OR  RECENTLY-BROKEN  A/C,  ETC. 

Cm# 

Cm*  INPUT  - 

Cm*  TIMET  -  LENGTH  (IN  HOURS)  OF  THE  REPAIR  PERIOD. 

Cm  NUC  -  TOTAL  NUMBER  OF  WORKCENTERS. 

CM#  NCREWS  -  NUMBER  OF  CREWS  IN  WORKCENTER-J. 

C#m  SRATE(J)  -  REPAIR  RATE  (AIRCRAFT/HOUR)  FOR  EACH  CREW  IN 

C*m  WORKCENTER-J. 

C#m  COMMON  INPUTS/OUTPUTS  - 

Cm*  INREPR(J)  -  NO.  OF  A/C  IN  HAINTENWCE  IN  W/C  J. 


C— 

PARATETER  MAXWC=25, MAXBIT=36, MAXAC=108, MAXVEC=2+(MAXAC-1 ) /MAXBIT 
PARAtETER  NAXDAY=30 

PARAMETER  LFLD=7,WEIM(D^XBIT/LFLD,MXINWC=1+(MAXAC-1)/(IERWRD 
DIMENSION  NCREWS(NWC),  SRATE(NWC) 

COMMON  /WCMAINT/  LISTRP(MXINWC,MAXWC), IWEPR(MAXWC) 

C — 

C —  *DO  FORtEACH  WORKCENTER) 

DO  400  J=l,NWC 
C— 

C —  * IF (THERE  ARE  ANY  AIRCRAFT  IN  REPAIR  IN  THIS  WORKCENTER) 

NACINJ  =  IMEPR(J) 

IF(NACINJ.EQ.O)  GO  TO  200 

C— 

C—  +GENERATE  SAMPLE  NUMBER  OF  AIRCRAFT  REPAIRED 

NFIXED  =  NREPS(TIfET, NACINJ, NCREWS ( J ), SRATE ( J) ) 

C — 

C—  HJPDATE  NO.  OF  A/C  IN  THIS  W/C 

INREPR(J)  =  NACINJ  -  NFIXED 

C— 

C —  +ENU  IF  (ZERO  AIRCRAFT  IN  REPAIR  TEST) 

200  CONTINUE 

C— 

C—  +END  DO  (WORKCENTER  LOOP) 

400  CONTINUE 
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SUBROUTINE  SIMULA 


C++  SIMULA  -  PERFORM  SIMULATION  REPLICATIONS. 

C++*  THIS  ROUTINE  PROVIDES  THE  BASIC  STRUCTURE  OF  THE  SGM 
C**+  SIMULATION.  THE  LOOPS  WHICH  CONTROL  THE  SIMULATION  REPLICATIONS, 
C***  THE  FLYING  DAYS  FOR  EACH  REPLICATION,  AND  THE  FLYING  CYCLES 
C***  FOR  EACH  FLYING  DAY  ARE  CONTAINED  IN  THIS  ROUTINE.  THE 
C***  ROUTINE  BASICALLY  JUST  EXECUTES  A  SPECIFIED  NUMBER  OF 
C***  FLYING  CYCLES  EACH  FLYING  DAY. 

C++*  THE  ROUTINE  READS  A  SUBSET  OF  SCENARIO  PARAMETERS  FOR  EACH 
C*«*  FLYING  DAY  OF  TFE  SCENARIO  FROM  A  SCRATCH  FILE  (03)  WHICH 
C*+*  HAS  INITIALIZED  IN  THE  INITSCN  SUBROUTINE.  THIS  APPROACH  ALLOWS 
C**+  T)€SE  PARAMETERS  TO  VARY  ON  A  DAILY  BASIS  DURING  THE 
C++*  SIMULATION. 

C++* 

C++*  COMMON  INPUTS  - 

C++*  NSIM  -  NUMBER  OF  SIMULATION  REPLICATIONS  TO  BE  PERFORfO 
C**+  NUNDAY  -  NUMBER  OF  FLYING  DAYS  TO  SIMULATE 

C++*  NCYCLES  -  NUMBER  OF  FLYING  CYCLES  FOR  EACH  DAY.  THIS  PARAMETER 

C**+  IS  READ  FROM  THE  SCRATCH  FILE  EACH  SIMULATION  DAY 

C***  C0H10N  OUTPUTS  - 

C***  ISIM  -  <ISIH=1,...,NSIM)  CURRENT  REPLICATION  NUMBER 

C***  IDAY  -  (IDAY=1,..,NUMDAY)  CURRENT  FLYING  DAY 

C***  ICYCLE  -  ( ICYCLE=1> . . . , NCYCLES)  CURRENT  FLYING  CYCLE 

C**+  NRESRV  -  CURRENT  NUMBER  OF  AIRCRAFT  IN  T)€  RESERVE  POOL 

C***  ITOTRES(I)-  (1=0,. ...NUNDAY)  CUMULATIVE  NUMBER  OF  AVAILABLE 
C**+  RESERVE  AIRCRAFT  UP  TO  AND  INCLUDING  THE  ITH  DAY. 

C**+  THE  OTH  DAY  REPRESENTS  THE  INITIAL  NUMBER  OF  RESERVE 

C***  AIRCRAFT.  THIS  ARRAY  IS  USED  IN  COMPUTING  ON-THE- 

C+*+  SC0C  AIRCRAFT  FOR  SORTIES/AIRCRAFT/DAY  IN  THE 

C***  PRINTO  ROUITINE. 

C***  IRES  *  NUMBER  OF  RESERVE  AIRCRAFT  WHICH  BECOME  AVAILABLE 
C***  ON  THIS  FLYING  DAY. 

C***  PATTRIT , PACGABT , WAITCYC, TYMNITE,  HAXFIY ( I ) 

C++*  -  SCENARIO  PARAMETERS  WHICH  ARE  ALLOWED  TO  VARY 

C+*+  ON  A  DAILY  BASIS.  THEY  ARE  LOADED  IN  THIS 

C***  ROUTINE  AND  SUPPLIED  TO  THE  FLYCYC  ROUTINE 

C— 

PARAJCTER  MAXWC=25,  MAXDAY=30,  MAXCYC=IO,  MAXSTAT=5 
COMMON  /INPUT/  INITUE,  NAC,  PATTRIT,  IRES,  RNHCM,  IfFPART, 

4  MAXFLY(MAXCYC),  INFMAN,  ISCALE,  IAUGMNT 

COMMON  /STATS/  EXPECT ( MAXSTAT, NAXCYC , NAXDAY ) , 

4  NRESRV,  IZDAY, ITOTRES(MAXDAY),  LOSSTOT 

C0H10N  /TIME/  PREFLITE.  SORTLGTH,  WAITCYC,  TYMNITE, 

4  NSIM,  ISIM,  NUHDAY,  IDAY,  NCYCLES,  ICYCLE 

COMMON  /WCBRK/  PACBRK,  PACGABT,  PBRKWC(fWXWC),  PWCPROD, 

4  PBRKSE9(2,MAXWC),  INDXWC(MAXWC) 

C— 

C—  +D0  FOR(EACH  SIMULATION  REALIZATION) 

DO  300  ISIM=1,NSIH 

C— 
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C—  *INITIALIZE  VARIABLES  AT  STMT  OF  EACH  REPLICATION 
CALL  INITREP 

—  tREWIND  DAILY  SCENARIO  PARAMETERS  FILE 
REWIND  03 

—  *00  FORIEACH  FLYING  DAY) 

DO  200  IDAY=ltNll1DAY 

—  *READ  DAILY  SCEMRI0  PARAMETERS 

R£AD(03)  PATTRIT.PACGABT.NCYCLES. IRESiWAITCYCiTYMNITE 
READ(03)  (HAXFLY(J),J=t,NCYCLES) 

—  HJPDATE  RESERVE  AC  POOL  WITH  NEW  AVAILABLE  RESERVES 

NRESRV  =  NRESRV  ♦  IRES 
ITOTRES(IDAY)  =  IT0TR£S( IDAY-1)  *  IRES 

—  *D0  FORIEACH  FLYING  CYCLE) 

DO  100  ICYCLEM.NCYCLES 

—  *SIMULATE  A  FLYING  CYCLE 
CALL  FLYCYC 

—  *END  DO  (CYCLE  LOOP) 

100  CONTINUE 

—  *END  DO  (DAY  LOOP) 

200  CONTINUE 


—  *END  DO  (REPLICATION  LOOP) 
300  CONTINUE 
C — 

RETURN 

END 
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SUBROUTINE  SORTDSUNRECS.RKEYS, INDEX) 


C++  SORTBS  -  DESCENDING  SORT  OF  A  REAL  ARRAY. 

C***  THIS  ROUTINE  RETURNS  A  SORTED  LIST  OF  IffflICES  ACCORDING 
Cm*  TO  THE  GIVEN  ARRAY  OF  FLOATING-POINT  KEYS.  THIS  IS  A 
C«*  DESCENDING  SORT  <I.E.  LARGEST  TO  SMALLEST)  USING  THE 
C*«  SItftE  EXCHANGE  SORT  TECHNIQUE. 


Cm* 

Cm* 

INPUTS  - 

Cm* 

NRECS 

Cm* 

Cm* 

RKEYS 

Cm* 

Cm* 

OUTPUTS  - 

Cm* 

INDEX 

Cm* 

Cm* 

Cm* 

-  NUMBER  OF  ENTRIES  OR  RECORDS  IN  THE  INPUT  AND 
OUTPUT  ARRAYS. 

-  ARRAY  OF  FLOATING-POINT  KEYS  WHOSE  CORRESPONDING 
INDICES  ARE  TO  BE  SORTED. 

-  ARRAY  OF  IWICES,  1 . NRECS  ,  SORTED  IN  DESCENDING 

•ORDER  ACCORDING  TO  THE  CORRESPONDING  RKEY  ENTRY. 
THUS.  RKEYI  INOEX(l)  )  IS  THE  LARGEST  ENTRY,  AND 
RKEYI  INDEX (NRECS)  )  IS  M  SHttiEST. 


C — 

DIMENSION  RKEYS(NRECS),  INDEX (NRECS) 

C— 

C—  *INITIALI2£  INDEX  ARRAY  TO  NATURAL  ORDER 
DO  100  1=1, NRECS 
INDEX  ( I )— I 
100  CONTINUE 
C — 


C—  *IF(  THERE  IS  MORE  THAN  1  RECORD)  THEN 
IF(M$CS.LE.1)G0  TO  500 

C— 

C—  *D0  UNTIL  (NO  INTERCHANGES  OCCUR) 

LIMIT=NRECS-1 
200  CONTINUE 

C — 

C —  +INITIALIZE  INTERCHANGE  FLAG  TO  NONE 

LASTX=0 

C — 

C —  *D0  FOR(EACH  CNSECUTIVE  PAIR  OF  RECORDS) 

DO  400  J=l, LIMIT 

C— 

C—  *IF(DBIC£S  OF  THESE  RECORDS  SHOULD  BE  INTERCHANGED) 

IFIRST  =  INDEX! J) 

I SEC  =  INDEX(J+1) 

IF(RKEYS( IFIRST). GE.RKEYS(ISEC) )  GO  TO  300 

C — 

C—  INTERCHANGE  INDICES  AND  MARK  LAST  EXCHANGE  LOCATION 

INDEX (J)  =  I SEC 

INDEXIJ+J)  =  IFIRST 
LASTX  =  J 

C— 

C —  *END  IF  (INTERCHANGE  TEST) 

300  CONTINUE 
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c — 

C —  *END  DO  (RECORD  PAIR  LOOP) 

400  CONTINUE 

C — 

C —  *£ND  DO  (INTERCHANGE  PASS  LOOP) 

LIMIT  =  LASTX 
IF (LASTX.hC.O)  GO  TO  200 

C— 

C —  *£ND  IF  (SINGLE  RECORD  TEST) 

500  CONTINUE 
C — 

RETURN 

END 


L 


SUBROUTINE  TBITSLINONES, IFROH. ITO) 


C++  TBITSL  -  TRANSFER  1-BITS  FROM  LEFT  OF  A  BIT-VECTOR. 

C«*  TBITSL  IS  A  FORTRAN  SUBROUTINE  WHICH  WILL  TRANSFER 
Cm  A  SPECIFIED  NUMBER  OF  1-BITS  IN  THE  LEFTMOST  PORTION  OF 
C»**  A  BIT- VECTOR.  IFROM" ,  TO  THE  CORRESPONDING  POSITIONS 
Cm  OF  A  BIT-VECTOR,  'ITO'.  THE  TRANSFERRED  BITS  ARE  THEN 
Cm  ZEROED  OUT  IN  '  IFROM' .  THESE  BIT-VECTORS  ARE  KEPT  IN 
Cm  ARRAYS,  ORGANIZED  IN  TIC  FOLLOWING  MANNER  -  THE  FIRST  WORD 
Cm  OF  THE  ARRAY  CONTAINS  TIC  CURRENT  NUMBER  OF  1-BITS  IN  THE 
Cm  BIT-VECTOR,  AND  THE  REMAINING  WORDS  OF  THE  ARRAY  CONTAIN  TIC 
Cm  ACTUAL  BIT-VECTOR. 


Cm 


Cm  INPUT  - 

Cm  NONES  -  NUMBER  OF  1-BITS  TO  BE  TRANSFERRED.  NOTE  THAT 
Cm  NONES  MUST  NOT  BE  GREATER  THAN  TIC  NUMBER  OF 
Cm  IS  IN  THE  BIT  STRING,  'IFROM. 


Cm  INPUT/OUTPUT  - 

Cm  IFROM  -  ARRAY  CONTAINING  THE  BIT-VECTOR  FROM  WHICH 
Cm  THE  LEFTMOST  1-BIT  POSITIONS  ARE  TO  BE 

C«*  TRANSFERRED.  NOTE  THAT  THESE  LEFTMOST 


Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm  ITO 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 

Cm 


1-BITS  ARE  ZEROED  OUT  IN  'IFROM'  UPON 
COMPLETION  OF  THIS  ROUTIFC.  IFR0HI1)  IS 
A  COUNTER  WHICH  INDICATES  TI€  CURRENT 
NUMBER  OF  1-BITS  IN  THE  BIT-VECTOR.  THE 
ACTUAL  BIT-VECTOR  IS  THE  CONSECUTIVE  BITS 
CONTAINED  IN  THE  WORDS  IFROM! 2)-IFR0M(LENGTH) 
-  ARRAY  CONTAINING  THE  BIT-VECTOR  TO  WHICH 
TIE  LEFTMOST  1-BITS  IN  'IFROM'  ARE  TO  BE 
TRANSFERRED.  THE  RIGHTMOST  POSITIONS  IN  ITO 
REMAIN  AS  BEFORE.  ITOU)  IS  A  COUNTER  WHICH 
INDICATES  THE  CURRENT  NUMBER  OF  1-BITS  IN 
TIE  BIT-VECTOR.  TIE  ACTUK.  BIT  VECTOR  IS  THE 
CONSECUTIVE  BITS  CONTAINED  IN  THE  WORDS  - 
IT0(2)  -  ITO(LENGTH) 


Cm  COMMON  INPUT  - 

Cm  LENGTH  -  LENGTH  (IN  COMPUTER  WORDS)  OF  TIE  ARRAYS 
Cm  CONTAINING  THE  VARIOUS  BIT-VECTORS;  1FIYVC,  ETC 


C— 

PARAMETER  MAXAC=108, MAXBIT=36, MAXVEC=2+<MWXAC-1 ) /MAXBIT 
COMMON  /ACSTATE/  LENGTH, NACVC! MAXVEC ) ,  IFLYVC(MAXVEC), 

4  MAINVC(MAXVEC) ,NORSVC(MAXVEC),  LOSTVC! MAXVEC) 

DIMENSION  IFROM(l),  ITO(i) 

C— 

C —  *INITIALIZE  TRANSFER  LOOP 

NLEFT  =  NONES 
INDEX  =  2 


C — 

C—  *00  WHILEXALL  APPROPRIATE  WORDS  HAVE  NOT  BEEN  MODIFIED) 
1000  CONTINUE 

IF (NLEFT. LE.O)  GO  TO  4000 
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IF( INDEX. GT. LENGTH)  GO  TO  4000 

♦COUNT  NUMBER  OF  IS  IN  NEXT  WORD 
NXT1S  =  N1BITSI  IFROM  INDEX)  ) 


—  ttlFINOT  ALL  1-BITS  IN  THIS  WORD  SHOULD  BE  TRANSFERRED) 

IF(NXTIS.LE.NLEFT)  GO  TO  2000 

—  ♦TRANSFER  THE  PROPER  NUMBER  OF  IS 

L TRANS  =  LBITSI  IFROM(INEEX)  .NLEFT) 

IT0(  INDEX)  =  ClR(IT0(  INDEX), LTRANS) 

IFROIK INDEX)  =  X0R(  IFR0M( INDEX)  > LTRANS) 

—  *ELSE  (ALL  1-BITS  IN  THIS  WORD  ARE  TO  BE  TRANSFERRED) 

GO  TO  3000 

2000  CONTINUE 

—  ♦TRANSFER  THE  ENTIRE  WORD 

ITO( INDEX)  =  OR(ITO( INDEX), IFROM( INDEX)) 

IFROM< INDEX)  =  0 

—  ♦END  IF  (ALL  IS  TEST) 

3000  CONTINUE 

—  ♦UPDATE  NUMBER  OF  IS  LEFT  TO  TRANSFER 

fLEFT  =  NLEFT  -  NXT1S 

—  ♦INCREMENT  INDEX  FOR  fEXT  WORD  OF  BIT-VECTOR 

INDEX  =  INDEX  +  1 

—  ♦END  DO  (WORD  LOOP) 

GO  TO  1000 
4000  CONTINUE 

—  ♦UPDATE  IS  COUNTER  FOR  T)€SE  BIT- VECTORS 

ITO(l)  =  ITO(l)  +  NONES 
IFROM(l)  =  IFROM(l)  -  NOfCS 

C — 

C—  ♦PERFORM  ERROR  CHECK  TO  ENSURE  APPROPRIATE  NUMBER 
C —  OF  1  -BITS  WAS  TRANSFERRED 

IF(NLEFT.GT.O)  WRITEI6, 9001 )NCWES, I FROM < 1 ), NLEFT 

C— 

RETURN 

9001  FORMAT  <"0»$$t$$M  T8ITSL  ERROR  -  TOO  FEW  1-BITS  TO  TRANSFER*, 
Si  /,  ■$$$***$!  NONES,  IFROM(l),  NLEFT  =  ", 315) 

END 
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SUBROUTINE  TBITSR(NONES, IFROM, ITO) 


C++  TBITSR  -  TRANSFER  1-BITS  FROM  RIGHT  OF  A  BIT-VECTOR. 

C*«*  TBITSR  IS  A  FORTRAN  SUBROUTINE  WHICH  WILL  TRANSFER 
Cm  A  SPECIFIED  NUMBER  OF  1-BITS  IN  Tl€  RIGHTMOST  PORTION  OF 
C++*  a  BIT-VECTOR.  'IFROM7.  TO  T)€  CORRESPONDING  POSITIONS 
C*«  OF  A  BIT-VECTOR.  'ITO'.  THE  TRANSFERRED  BITS  ARE  THEN 
C***  ZEROED  OUT  IN  'IFROM'.  THESE  BIT-VECTORS  ARE  KEPT  IN 
Cm*  ARRAYS,  (ORGANIZED  IN  THE  FOLLOWING  mt€R  -  THE  FIRST  WORD 
C«*  OF  THE  ARRAY  CONTAINS  TIE  CURRENT  NUMBER  OF  1-BITS  IN  THE 
C***  BIT-VECTOR,  AND  THE  REMAINING  WORDS  OF  THE  ARRAY  CONTAIN  THE 
Cm*  ACTUAL  BIT-VECTOR. 

Cm* 


C*m  INPUT  - 
Cm*  NONES 
C*M 
Cm* 

Cm*  INPUT/OUTPUT  - 
Cm*  [FROM 
C+M 
C*#* 

Cm* 

C+M 

Cm* 

Cm* 

C++* 

C*m 

C***  ITO 

c**+ 

c*** 

Cm* 

Cm* 

C*m 

Cm* 

Cm* 

Cm*  COMMON  INPUT  - 
Cm*  LENGTH 
Cm* 


-  NUMBER  OF  1-BITS  TO  BE  TRANSFERRED.  NOTE  THAT 
NOtCS  MUST  NOT  BE  GREATER  THM  THE  NUMBER  OF 
l'S  IN  THE  BIT  STRING,  'IFROM. 

-  ARRAY  CONTAINING  THE  BIT-VECTOR  FROM  WHICH 
THE  RIGHTMOST  1-BIT  POSITIONS  ARE  TO  BE 
TRANSFERRED.  NOTE  THAT  THESE  RIGHTMOST 
1-BITS  ARE  ZEROED  OUT  IN  'IFROM'  UPON 
COMPLETION  OF  THIS  ROUTINE.  IFROM(l)  IS 

A  COUNTER  WHICH  INDICATES  THE  CURRENT 
NUMBER  OF  1-BITS  IN  THE  BIT-VECTOR.  THE 
ACTUAL  BIT-VECTOR  IS  THE  CONSECUTIVE  BITS 
CONTAINED  IN  THE  WtfiDS  IFROH(2)-IFROM(LENGTH> 

-  ARRAY  CONTAINING  THE  BIT-VECTOR  TO  WHICH 
THE  RIGHTMOST  1-BITS  IN  'IFROM'  ARE  TO  BE 
TRANSFERRED.  THE  LEFTMOST  POSITIONS  IN  ITO 
REMAIN  AS  BEFORE.  ITO(l)  IS  A  COUNTER  WHICH 
INDICATES  THE  CURRENT  NUMBER  OF  1-BITS  IN 
TIE  BIT-VECTOR.  THE  ACTUrt.  BIT  VECTOR  IS  THE 
CONSECUTIVE  BITS  CONTAINED  IN  THE  WORDS 

IT0<2)  -  ITO(LENGTH) 

-  LENGTH  (IN  COtPUTER  WORDS)  OF  THE  ARRAYS 
CONTAINING  THE  VARIOUS  BIT-VECTORS?  IFLYVC,  ETC 


C — 

PARAMETER  MAXAC=108,MAXBIT=36,tWXVEC=2+(tWXAC-l)/MAXBIT 
COMMON  /ACSTATE/  LENGTH, NACVC(HAXVEC).  IFLYVC(tWXVEC), 

St  MAINVC(MAXVEC)  ,NORSVC(MAXVEC),  LOSTVC(MAXVEC) 

DIMENSION  IFROM(l),  ITO(l) 

C— 

C—  *1NITIALIZE  TRANSFER  LOOP 
NLEFT  =  NONES 
INDEX  =  LENGTH 

C—  *DO  WHIL£(ALL  APPROPRIATE  WORDS  HAVE  NOT  BEEN  MODIFIED) 
1000  CONTINUE 

IF(NLEFT.LE.O)  GO  TO  4000 
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IF (INDEX  .LE.  1)  GO  TO  4000 

—  COUNT  NUMBER  OF  l'S  IN  NEXT  WORD 

NXT1S  =  N1BITS(  IFR0M( INDEX)  ) 

*IF(N0T  ALL  1-BITS  IN  THIS  WORD  SHOULD  BE  TRANSFERRED) 
IF(NXTIS.LE.NLEFT)  GO  TO  2000 

—  ^TRANSFER  THE  PROPER  NUMBER  OF  l'S 

NTRANS  =  LBITSI  IFROM(INDEX)  .NXT1S-NLEFT) 

IT0( INDEX)  =  iR(IT0< INDEX), X0R(IFR0M( INDEX), NTRANS)) 

IFR0M( INDEX)  =  NTRANS 

--  *€LS£  (ALL  1-BITS  IN  THIS  WORD  ARE  TO  BE  TRANSFERRED) 

GO  TO  3000 

2000  CONTINUE 

—  * TRANSFER  THE  ENTIRE  WORD 

IT0< INDEX)  =  OR  (IT0< INDEX), IFR0M( INDEX)) 

IFR0M1 INDEX)  =  0 

—  *END  IF  (ALL  l'S  TEST) 

3000  CONTINUE 

—  CPDATE  NUMBER  OF  l  'S  LEFT  TO  TRANSFER 

NLEFT  =  NLEFT  -  NXT1S 

—  *DECPEftNT  INDEX  FOR  NEXT  WORD  OF  BIT-VECTOR 

INDEX  =  INDEX  -  1 

—  *END  DO  (WORD  LOOP) 

GO  TO  1000 
4000  CONTINUE 

—  CPDATE  l  'S  COUNTER  FOR  THESE  BIT- VECTORS 

IT0(1)  =  IT0(1)  +  NONES 
IFROM(l)  =  IFROM(l)  -  NONES 

C — 

C —  PERFORM  ERROR  CHECK  TO  ENSURE  APPROPRIATE  NUMBER 

C —  Cf  1-BITS  WAS  TRANSFERRED 

IF(NLEFT.GT.O)  WRITER, 9001 ) NONES, IFROM(l), NLEFT 
C— 

RETURN 

9001  F0RfWT( ■()$«$***$  TBITSR  ERROR  -  TOO  FEW  1-BITS  TO  TRANSFER*, 

I.  /,  *  $$*$«*$$  NONES,  IFROM(l),  NLEFT  =  *,315) 

END 
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SUBROUTINE  UEUPDAT ( MAC ) 

CiiiiuiiiiiiiiimmiinmmimitHHmiiiiitmiiiniHHW 

C++  UEUPDAT  -  UPDATE  UE-STRENGTH  FOR  SCENARIO. 

C*«  THIS  ROUTINE  IS  USED  TO  IPDATE  THE  UE-STRENGTH  OF  THE 
Cm*  SCEWWIO.  THE  UE-STRENGTH  IS  INITIALIZED  AT  T)€  START  OF 
CM*  TIC  FLYING  SCENARIO  AND  NORMALLY  DOES  NOT  CHANGE  THROUGHOUT 
Cm*  THE  SIMULATION.  HOWEVER.  IF  THE  USER  HAS  SELECTED  THE 
CM*  AUGMENTATION  MODE  FOR  RESERVE  AIRCRAFT,  AND  ENOUGH  RESERVES 
CM*  ARE  AVAILABLE  TO  MORE  THAN  REPLACE  COMBAT  LOSSES,  THEN  THE 
Cm*  EXCESS  RESERVES  ARE  USED  TO  INCREASE  THE  CURRENT  UE-STRENGTH. 
C*m  INCREASING  THE  UE-STRENGTH  REQUIRES  RECALCULATION 
Cm*  OF  THE  LENGTH  OF  THE  AIRCRAFT-STATUS  BIT-VECTORS,  Afffl  ALSO 
Cm*  REINITIALIZATION  OF  THE  TOTA.-AIRCRAFT-POPULATION  VECTOR. 


C*M 

C*m  INPUT  - 
C*m  NAC 
CM*  MAXAC 
Cm* 

Cm*  MAXBIT 


-  NEW  UPDATED  UE-STRENGTH. 

-  PARAMETER  INDICATING  MAXIMUM  ALLOWABLE 
AIRCRAFT  IN  T)€  CURRENT  SGM  CONFIGURATION. 

-  NUMBER  OF  BITS  PER  COMPUTER  WORD. 


C*M  COMMON  OUTPUT  - 


Cm*  LENGTH 
Cm* 

Cm* 

Cm* 

Cm*  NAC(I) 
Cm* 

Cm* 


-  LENGTH  (IN  COMPUTER  WORDS)  OF  THE  AIRCRAFT 
8IT-VECT0RS.  LENGTH  MUST  BE  LARGE  ENOUGH  SO  THAT 
THE  BIT-VECTORS  ARE  AT  LEAST  "NAC'  BITS 

LONG  AT  ■MAXBIT'  BITS  PER  COMPUTER  WORD. 

-  (1=1, 2,..., LENGTH)  BIT-VECTOR  WITH  FIRST  ''NAC* 
BITS  SET  TO  1.  THIS  BIT-VECTOR  INDICATES  THE 
TOTAL  AIRCRAFT  POPULATION  FOR  THE  SCENARIO. 


C— 

PARAMETER  MAXBIT=36,  MAXAC=108,  HAXVEC=2+(MAXAC-1) /MAXBIT 
COMMON  /BITS/MASK0,HASK<35),  MEFT0,MSKLFT(36), IZCOUT, 

4  IC0UNT<63) 

COMMON  /ACSTATE/  LENGTH, NACVC( MAX VEC),  IFLYVC(HAXVEC), 

4  MAI NVC ( PWX VEC ) , NORSVC ( MAX VEC ) ,  LOSTVC(MAXVEC) 

C— 

C —  «PERFORM  ERROR  CHECK  TO  ENSURE  NO  UE-OVERFLOW 


IF(NAC.LE.MAXAC)GO  TO  100 
WRITE(6,9001 )NAC, MAXAC 
MC  =  MAXAC 


100  CONTINUE 
C— 

C—  *RE COMPUTE  LENGTH  OF  AIRCRAFT-STATUS  BIT-VECTCRS 
LENGTH  =  2  +  (NAC-D/MAXBIT 

C— 

C—  *INITIALIZE  TOTAL-AIRCRAFT-POPULATION  BIT-VECTOR 
CMJ.  SPRAY  ( MSKLFT  ( 36 ) ,  NACVC  ( 2 ) ,  LENGTH—  1  > 
NACVC(LENGTH)=MSKLFT!M0D(NAC-1,MAXBIT>)+I 
NACVC( 1)=NAC 

C — 

RETURN 

9001  FORMAT! ‘0«ft»tt*  UEUPDAT  ERROR  -  UE  OVERFLOW*,/, 
4  "  ««*$«($«  NAC,  MAXAC  =  ’,215,/, 
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MAC  WILL  BE  TRUNCATED  TO  MAXAC" ) 


END 
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SUBROUTINE  WCDISTfNBRKAC.PBRKSEQ.INDXWC.IACVC) 

. . . . 

C++  WCDIST  -  DETERMINE  BREAK  DISTRIBUTION  INTO  WORK  CENTERS. 

Cm*  WCDIST  IS  A  FORTRAN  SUBROUTINE  WHICH  SIMULATES  TIC  PROCESS 
Cm  OF  AIRCRAFT  BREAKING  INTO  WORKCENTERS.  GIVEN  A  NUMBER  OF  AIRCRAFT 

Cm*  WHICH  HAVE  BROKEN  INTO  AT  LEAST  ONE  WORKCENTER  -  1.2 . NWC.  THIS 

C++*  ROUTINE  DETERMINES  (BY  SIMULATION)  WHICH  PARTICULAR  WORKCENTERS 
Cm*  THE  AIRCRAFT  BROKE  INTO. 

Cm* 


C++*  INPUTS  - 
ct*#  IACVC 
c**+ 

CM* 

Cm 

cm* 


BIT  VECTOR  INDICATING  AIRCJWT  FROM  WHICH  BROKEN 
AIRCRAFT  ARE  TO  BE  SELECTED.  A  1-BIT 
INDICATES  AN  AIRCRAFT  WHICH  IS  A  CANDIDATE  FOR 
ONE  OF  THE  BROKEN  AIRCRAFT.  THIS  ROUTINE  ARBITRARILY 
SELECTS  THE  LEFTMOST  1-BITS  AS  THOSE  AIRCRAFT  WHICH 
WILL  BREAK  INTO  MAINTENANCE.  NORMALLY.  IACVC 
IS  'IFLYVC'  OR  'NORSVC'. 

NUMBER  OF  BROKEN  AIRCRAFT  WHICH  ARE  TO  BE  BROKEN 
INTO  THE  DIFFERENT  WORKCENTERS.  fl€  LEFTMOST 
•'N8RKAC'  1-BITS  IN  'IACVC'  ARE  SELECTED  AS  THE 
AIRCRAFT  WHICH  BROKE. 


C++* 

Cm* 

Cm*  NBRKAC 
Cm* 

Cm* 

Cm* 

Cm*  COMMON  INPUTS  - 

C*m  NWC  -  TOTAL  NUMBER  OF  WORKCENTERS 

C*m  MASK(I)  -  CONTAINS  A  1  IN  T)£  ITH  BIT  (COUNTING  FROM  THE  LEFT) 

Cm*  AND  ZEROES  EVERYWHERE  &SE.  1=0..... 35 

Cm*  COMMON  INPUTS/OUTPUTS  - 

C*m  IW£PR(J)  -  NUMBER  OF  AIRCRAFT  IN  WORKCENTER-J. 

Cm*  LISTRP(I.J)  -  LISTRP!  .  ,J>  IS  A  LIST  OF  AIRCRAFT  NUMBERS 
CM*  INDICATING  THOSE  AIRCRAFT  REQUIRING  MAINTENANCE  IN 

Cm*  T>€  JTH  WORK-CENTER  <J=1,2,...,NWC).  THIS  LIST 

Cm*  CONTAINS  EXACTLY  INREPR(J)  AIRCRAFT  NUMBERS.  TO  SAVE 

Cm*  SPACE.  THESE  LISTS  HAVE  BEEN  PACKED  INTO  BIT-FIELDS 

Cm*  INSTEAD  OF  WORDS.  EACH  NUMBER  IS  STORED  IN  A  BIT-FIELD 

Cm*  ‘LFLD’  BITS  WIDE!  HENCE,  IF  ’MAXBIT’  IS  THE  LENGTH 

Cm*  OF  A  COMPUTER  WORD  ON  THIS  SYSTEM,  TFEN  THERE  ARE 

Cm*  (MAXBIT/LFLD)  BIT-FIELDS  STORED  PER  WORD.  THE  AIRCRAFT 

Cm*  NUMBERS  STORED  IN  TJCSE  BIT-FIELDS  INDICATE  A  UNIQUE 

Cm*  BIT-POSITION  IN  THE  VARIOUS  AIRCRAFT-STATUS  BIT- 

C«#*  VECTORS.  T)€  AIRCRAR  ARE  NUMBERED. LEFT-TO-RIGHT, 

Cm*  0, 1,2,...,(MAXAC-I)  .  TO  GET  THE  ITH  AIRCRAR  NUMBER 

Cm*  IN  A  WORK-CENTER  LIST,  THE  CORRESPONDING 

CM*  BIT-POSITION  AM)  WORD-INDEX  MUST  BE  COMPUTED. 


CMHMIMMM*  I  *  *  MMMMM*  MMMMMMM  MMMMMMMMMM  ******* 

c — 

PARAMETER  MAXWC=25,MAXBIT=36,MAXAC=108, MAXVEC=2+(MAXAC-l ) /MAXBIT 
PARAMETER  LFLD=7.NPERWRD=MAXBIT/LFLD,MXINHC=I+(HAXAC-1)/NPERWRD 
COMMON  /RSEED/  SEED 

COMMON  /WCINPUT/  NUC,  NCREWS(HAXWC),  SRATE(MAXWC) 

COMMON  /WCMAINT/  LISTFP(HXINWC.fWXWC),  IfflEPR(MAXWC) 

COItlON  /BITS/  MASK0,MASK(35),  MLER0,HSKLR(36)» 

5,  IZCOUT,  IC0UNT(63) 

COMMON  /ACSTATE/  LENGTH, NACVC(HAXVEC),  IFLYVC (MAXVEC). 


b  MAINVC(MAXVEC),NORSVC(NAXVEC),  LOSTVC(hAXVEC) 

DIMENSION  PBRKSE9(2,MAXWC).  INDXWC(l),  IACVC(l) 

C —  *IF( THERE  ARE  ANY  BROKEN  AIRCRAFT1THEN 

IF(NBRKAC.EQ.O)  GO  TO  700 

C — 

C—  ^INITIALIZE  NUMBER  OF  SELECTED  AIRCRAFT  TO  NONE 

NSELEC  =  0 

C — 

C —  »D0  FOR(EACH  WORD  OF  THE  INPUT  AIRCRAFT  VECTOR) 

DO  500  I WORD  =  2, LENGTH 

C — 

C —  tINITIALIIE  DO 

IACBIT  =  IACVC(IUORD) 

IBRKVC  =  0 

C — 

C —  *00  FOR(EACH  BIT  OF  THIS  BIT-VECTOR  WORD) 

00  400  IBIT  =  l.MAXBIT 

C — 

C —  *IF(THIS  BIT  INDICATES  AN  ELIGIBLE  AIRCRAFT)THEN 

MASKAC  =  MASK(IBIT-l) 

IF(AND(IACBIT,MASKAC>  ,EQ.  0)  GO  TO  300 

C— 

C—  *SELECT  THIS  AIRCRAFT  AS  BROKEN 

IBRKVC  =  OR (IBRKVC. MASKAC) 

NSELEC  =  NSELEC  +  1 

C— 

C—  COMPUTE  AIRCAFT  I 

I AC  =  (IW0RD-2)*HAXBIT  ♦  (IBIT-1) 

C — 

C —  *D0  FOR  (EACH  WORKCENTER) 

DO  100  J  =  l.NWC 

C — 

C —  *DRAW  RtfCOM  SAMPLE  FROM  UNIFORM  (0,1) 

RDRAW  *  UNIFMl(SEED) 

C— 

C—  CONTINUE  LOOP  WITH  NEXT  WORKCENTER  IF 

C—  DRAW  INDICATES  NO  BREAK  INTO  THIS  WC 

IF(RDRAW  .GT.  PBRKSEQ ( 2 , J ) )  GO  TO  100 

C— 

C—  CPDATE  NUMBER/DISTRIBUTION  FOR  THIS  WC 

JREAL  =  INDXWC(U) 

NTClREP  =  INREPR(JREAL)  +  1 

C — 

C —  *MAKE  'IRAND'  A  RANDOM  INTEGER  BETWEEN  1  AND 

C—  THE  NO.  OF  A/C  THAT  WILL  BE  IN  THIS  W/C 

I RAND  =  INT(UNIFH1(S£ED)*FL0AT(NT0REP>)  +  1 

C— 

C—  *MOVE  T>*  A/C  CURRENTLY  AT  SPOT  IRAND'  IN  THE 

C—  LIST  TO  THE  RIGHTMOST  SPOT. 

FLD<  M00<  NTOREP- 1 ,  NPERWRD)  CFLD.LFLD, 
l  LISTRP(1*<NT0REP-1)/NPERWRD, JREAL)) 

V  =  FLD(M0D(IRAND-1,  NPERWRD)  CRD,  LFLD, 
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&  LISTRP( l+( IRAND-1 ) /NPERWRD, JREAL) ) 

—  *  INSERT  THE  SELECTED  A/C  INTO  SPOT  'IRAND' 

FLD(M0D< IRAND-1, NPERWRD)«LFLD.LFLD» 

LISTRPf 1*< IRAND-1 ) /NPERHRD, JREAL) ) 

=  I  AC 

—  *INCREMENT  THE  NO.  OF  A/C  IN  THIS  H/C 

INREPR(JREAL)  =  I)«EPR<JREAL)  +  1 

—  *£XIT  HORKCENTER  LOOP  IF  DRAW  ALSO  INDICATES 

—  NO  BREAKS  INTO  REMAINING  HORKCENTERS 
IFfRDRAH  .LE.  PBRKSEQd.J))  GO  TO  200 

—  *€ND  DO  (HORKCENTER  LOOP) 

100  CONTINUE 

—  *****  ERROR  ♦«**  IF  THIS  STATEMENT  IS  REACHED, 

—  THEN  EITHER  PBRKSEQd.l'WC)  DOES 

NOT  EQUAL  1.0,  OR  THE 

—  RANDOM  DRAW  IS  GREATER  THAN  1.0 
URITE<6, 9001 JPBRKSEQ ( 1 , NUC ) , RDRAM 


—  «EXIT  DO  (HORKCENTER  LOOP)  -  THIS  IS  THE 

NORMAL  EXIT  FROM  THE  HORKCENTER  LOOP 
200  CONTINUE 

—  *IF  ALL  THE  BROKEN  AIRCRAFT  MVE  BEEN  SELECTED 

—  THEN  ALL  LOOPS  ARE  TERMINATED 

IF (NSELEC  .GE.  NBRKAC)  GO  TO  600 

—  *END  IF  (FLYABLE  AIRCRAFT  TEST) 

300  CONTINUE 

—  «£ND  DO  (BIT  LOOP) 

400  CONTINUE 

—  fUPDATE  INPUT  BIT-VECTOR 

IACVC(IHORD)  =  XOR( IACVC( IHORD) , IBRKVC) 

—  «Offl  DO  (WORD  LOOP) 

500  CONTINUE 

—  *****  ERROR  *****  IF  THIS  STATEMENT  IS  REACHED, 

—  THEN  NOT  ENOUGH  BROKEN  AC  HERE  FOUND 
HRITE(6, 9002 ) NBRKAC, I ACVC ( 1 1 , NSELEC 

—  *EXIT  -  ALL  BROKEN  AC  HAVE  BEEN  SELECTED 

600  CONTINUE 


•UPDATE  LAST  WORD  OF  INPUT  VECTOR 
I ACVC ( IHORD)  =  XOR(IACVC( IHORD), IBRKVC) 

C— 
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♦UPDATE  NUMBER  OF  AIRCRAFT  IN  INPUT  VECTOR 
lACVC(l)  =  IACVCU)  -  NBRKAC 


♦END  IF  (ZERO  BREAKS  TEST) 

700  CONTINUE 
C — 

RETURN 

9001  FORMAT ( "0$$tt**M  WCDIST  ERROR  -  SEQUENTIAL  SAMPLING  ERRORS,/ 

I,  ■  $$$$$$$$  PBRKSEQ(l.NHC),  RERAN  =  '.2F10.4) 

9002  FORMAT ( *0$$$tt*$*  NCDIST  ERROR  -  INCONSISTENT  BROKEN  AIRCRAFT 

l  ■  ********  NBRKAC,  IACVCU).  NSELEC  =  *,315) 

END 


SUBROUTINE  WCPRUB(NWC,PBRKWC,PBRKSEQ,  INDXUC.PWCPRUD) 

C++  WCPROB  -  INITIALIZE  WORK-CENTER  SEQUENTIAL  BREAK  PROBABILITIES. 
Cm  THIS  ROUTINE  CALCULATES  THE  PROBABILITIES  NECESSARY  TO 
Cm  SIMULATE  THE  DISTRIBUTION  OF  AIRCRAFT  BREAKS  INTO  THE  VARIOUS 
Cm  WORK  CENTERS. 

Cm 

Cm  INPUTS  - 

C***  NIC  -  NUMBER  OF  WORKCENTERS  BEING  MODELED. 

Cm  PBRKWC(J)  -  PROBABILITY  THAT  AN  AIRCRAFT  WILL  BREAK  INTO 

Cm  WORKCENTER-J.  NOTE  THAT  THIS  BREAK  MAY  BE  DUE 

Cm  TO  SORTIE  BREAKS  OR  GROUND-ABORTS.  DEPENDING 

Cm  ON  HOW  THIS  ROUTINE  IS  CALLED. 

Cm  OUTPUTS  - 

Cm  PBRKSEQ(l.J)-  PROBABILITY  THAT  AN  AIRCRAFT  BREAKS  INTO  THE 
Cm  WORKCENTER  INDICATED  BY  'INDXWCUK,  AND  DOES 

Cm  NOT  BREW!  INTO  ANY  OF  T>€  WORKCENTERS  - 

Cm  INDXWC(J+l),INDXWC(J+2)»  ....  INDXWC(NWC) 

Cm  GIVEN  THAT  THE  AIRCRAFT  HAS  BROKEN  INTO  AT  LEAST 

Cm  ONE  OF  THE  WORKCENTERS  - 

Cm  INDXWC(J).  INDXWCIJ+l ),  ....  M)XWC(NUC). 

Cm  THUS.  PBRKSEQIl.(NWC)  MUST  EQUAL  1.0  . 

Cm  PBRKSEQ(2,J»-  PROBABILITY  THAT  AIRCRAFT  HAS  BROKEN  INTO  THE 
Cm  WORKCENTER  INDICATED  BY  'INDXWC(J)',  GIVEN  THAT 

Cm  THE  AIRCRAFT  HAS  BROKEN  INTO  AT  LEAST  ONE  OF  TtE 

Cm  WORKCENTERS  INDICATED  BY  - 

Cm  INDXWC(J),  INDXWC! J+l),  ....  INDXWC(NWC). 

Cm  INDXWC(J)  -  INDICATES  THE  INDEX  OF  TIC  WORKCENTER  WITH  THE 
Cm  JTH  LARGEST  BREAK  PROBABILITY.  THUS.  INDXWC(l) 

Cm  INDICATES  THE  WORKCENTER  WITH  THE  LARGEST 

Cm  BREAK  PROBABILITY,  INDXWC(NWC)  INDICATES  THE 

Cm  ONE  WITH  THE  SMALLEST,  ETC.  . 

Cm  PWCPROO  -  PRODUCT-FORMULA  OVERALL  WORK-CENTER  BREAK-RATE. 
Cm  COMPUTED  FROM  THE  INDIVIDUAL  WC  BREAK-RATES. 


C— 

C— 

C— 


DIMENSION  PBRKWC(NWC),  PBRKSEQ(2,NWC>,  IW)XWC(NWC) 

-  COMPUTE  SORTED  ARRAY  OF  WORK-CENTER  INDICES  ACCORDING  TO 

—  LARGEST-TO-SMALLEST  BREAK-RATE. 

CALL  SORTDSfNWC+O.PBRKWC,  INDXWC) 

—  tINITIALIZE  END-POINT  PROBABILITIES 
PBRKSEQU.NWC)  =  1.0 
PBRKSEQ(2,NHC)  =  1.0 

-  *M)  UNTIL (ALL  PROBABILITIES  HAVE  BEEN  CALCULATED) 

J  =  NWC  -  1 

FOLD  *  1.0  -  PBRKWCI INDXWC (NWC) ) 

100  CONTINUE 

COHVTE  *XT  PROBABILITIES 
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PROB  =  PBRKWCI INDXWCI J) ) 

PtCH  =  POLD  ♦  (1.0  -  PROB) 

PBf»<SEQ<2.J)  =  PROB/d.O  -  PfCW) 

PBRKSEQ(1,J)  =  PBRKSEQ(2,J>  *  FOLD 
POLD  =  PNEW 

—  *£NB  DO  (UC  LOOP) 

J  =  J  -  1 

IF(J.GT.O)  GO  TO  100 

—  *SAVE  PRODUCT-FORMULA  0VERA1  WORK -CENTER  BREAK -RATE 

PVCPROO  =  1.0  -  POLD 

C — 

RETURN 

END 


C' 


SUBROUTINE  WO^(IFILE,HflXlK,l«:,PBRWC.NCREMS,SRATE) 

C++  WCfEAD  -  READ  AND  INITIALIZE  WORK  CENTER  DATA. 

C++*  WCREAD  READS  WORK-CENTER  DATA  FROM  THE  MAINTENANCE 
C«*  MANPOWER  INPUT  FILE.  THIS  DATA  IS  ASSUftD  TO  BE  ON  UNIT 
C**t  'IFILE',  ONE  FREE-FORMAT  RECORD  PER  WORK-CENTER. 

C++*  THIS  ROUTINE  RETURNS  TI€  NUMBER  OF  WORK-CENTERS  LOADED, 'NWC*! 

Cm*  THE  BREAK-RATE  ARRAY.  ‘PBRKWC';  THE  SERVICE-RATE  ARRAY.  '  SRATE*; 
C++*  AND  T>€  SERVERS  ARRAY,  'NCREWS'. 

C+K  THE  SERVERS  ARRAY,  "NCREWS*,  REPRESENTS  THE  NUMBER  OF  CREWS 
Cm*  AVAILABLE  PER  12-HOUR  SHIR.  THE  INPUT  FILE  CONTAINS  THE 
Cm*  TOTAL  NUMBER  OF  CREWS  AVAILABLE  FOR  THE  PARTICULAR  WORK-CENTER. 
Cm*  THE  12-HOUR  SHIFT  NUMBER  IS  COMPUTED  BY  DIVIDING  THIS  AVAILABLE- 
C*m  SERVERS  IN  HALF  AW)  ROUNDING  TO  THE  NEAREST  INTEGER  NUMBER. 

Cm*  IN  ADDITION,  IT  IS  ASSUMED  T1ERE  IS  ALWAYS  AT  LEAST  »€  CREW 
C***  PER  SHIFT. 

Cm*  THE  AFSC  DESCRIBING  THE  WORK-CENTER,  AND  THE  TOTAL  NUMBER  OF 
Cm*  SERVERS  ARE  ECHO-PRINTED,  BUT  ARE  NOT  SAVED  FOR  FUTURE  USE. 

Cm*  THE  MAXIMUM  NUMBER  OF  WORK-CENTERS  WHICH  CAN  BE  LOADED  IS 
Cm*  SPECIFIED  BY  THE  *MAXWC0  INPUT  PARAMETER.  IF  MORE  THAN 
Cm*  THIS  NUMBER  IS  READ,  AN  ERROR  MESSAGE  IS  PRINTED.  AND  THE  SGM 
Cm*  RUN  CONTIN.es  WITH  ONLY  THE  FIRST  *NAXWC*  WORK-CENTERS. 

Cm*  INPUTS  - 

Cm*  IFILE  -  INPUT  FILE  NUMBER  FROM  WHICH  MAINTENANCE  MANPOWER 

C*«  INPUT  DATA  IS  TO  BE  READ 

Cm*  MAXWC  -  MAXIMUM  NUMBER  OF  WORK-CENTERS  WHICH  CAN  BE  LOADED 

Cm*  OUTPUTS  - 

C*m  NWC  -  NUMBER  OF  WORK-CENTERS  LOADED 

Cm*  PBRKWC  -  ARRAY  OF  WORK-CENTER  BREAK  RATES 

Cm*  NCREWS  -  ARRAY  OF  WORK-CENTER  CREW  NUMBERS 

Cm*  SRATE  -  ARRAY  OF  WORK-CENTER  SERVICE  RATES 


C— 

DIltNSlON  PBRKWC (MAXWC).  NCREWS (MAXWC),  SRATE (MAXWC) 
CHARACTER  CAFSC»5 
C — 

C —  *PRINT  HEADER  FOR  ECHO-CHECK  OF  INPUT  DATA 
WRITER,  9001) 

C — 

C —  UNITIALIZE  NUMBER  OF  WORK  CENTERS 
NWC=1 

C— 

C—  *D0  UNTIUNO  MORE  WORK  CENTERS  TO  LOAD) 

100  CONTINUE 
C— 

C—  +READ  NEXT  WORK-CENTER  RECORD 
READ! IFILE. 9000, END=200) 

4  CAF SC, PBRKWC (NWC), SERVERS, SRATEiNWC/ 

C — 

C—  *PERFORH  ERROR  CHECK  ON  INPUT  DATA 

IF( (PBRKWC (NWC). GT. 0.0). AND. (PBRKWC (NWC). LE. 1.0) ) 
4  GO  TO  150 
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IF!SERVERS.GE.O.O)GO  TO  150 
IF(SRATE!NWC).G£.0.0)GO  TO  150 

WRITE!*. 9004)CAF SC, PBRKWC(NWC) , SERVERS, SRATE(NWC) 

GO  TO  100 
150  CONTINUE 

—  COMPUTE  INTEGER-NUMBER  OF  CREWS  PER  12-H0UR  SHIR 

NCR£WS<NWC)=MAX0<1, INT! SERVERS*. 5  +  .5)) 

—  +ECH0-PRINT  WORK-CENTER  INFORMATION 

WRITE(6,9002)NWC>CAFSC>PBRKWC(NWC)> SERVERS, SRATE(NWC) 

—  * INCREMENT  WORK-CENTER  INDEX 

NWC=NWC*1 

—  *£ND  DO  (WORK-CENTER  LOOP) 

IF(NWC.LE.MAXWC)GO  TO  100 

—  *PRINT  ERROR  MESSAGE  IF  STILL  MORE  DATA  ON  TIE  FILE 

READ! IFILE, 9000, END=200)PBRKWC(NWC), SERVERS, SRATE(NWC) 
WRITE(6,9003)MAXWC 
200  CONTINUE 

—  tADJUST  NUMBER  OF  WORK-CENTERS  TO  ACCOUNT  FOR  EOF  READ 

NWC=NWC-1 

—  CLOSE-OUT  MANPOWER  INPUT  FILE 

CALL  FCLOSE(IFILE) 

C — 

RETURN 

9000  FORMAT) IX, A5. IX.F9-4, 1X.F9.2, 1X.F9.4) 

9001  FORMAT! *1*,//,7X,  ,wniiiininiHininiin»»iiHHi«HiHi,,/l 

4  ,7X, '**♦*♦**♦♦♦  AIRCRAFT  MAINTENANCE  **********' ,/ , 

4  21X>*  BREAK", IX,'  TOTAL*, 3X, ’SERVICE  RATE",/, 

4  7X,*WC  #“,2X, *  tfSC’^X,*  RATE*,2X>"  SERVERS*, 2X.*<ACJrr/H0UR>*,//) 

9002  F0RMAT(7X, I3,3X,A5,3X,F6.4,1X,F7.2,3X,F9.4) 

9003  FORMAT!  *<>$*$*$«*  WCREAD  ERROR  -  TOO  MANY  WORK-CENTERS  *, 

4  "IN  THE  INPUT  FILE",/, 

4  "  «$«$$($$  ONLY  T>€  FIRST  *,I3,"  WORK-CENTERS  WERE  USED?*,/, 

4  *  $«$$«$$$  INCREASE  -MAXWC-  PARAfETER  IF  YOU  WANT  MORE  WC-S") 

9004  FORMAT ( *(t$$$4$$$$  WCREAD  ERROR  -  INVALID  WORK  CENTER  DATA*,/, 

4  *  <$(»<»  PBRKWC,  SERVERS,  SRATE  =  *,3 F8.3) 

END 
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REAL  FUNCTION  XNGRM  < XMEAN, STOEV, SEED) 

C++  XNGRM  -  DRAW  RANDOM  SAMPLE  FROM  A  NORMAL  DISTRIBUTION. 

C++*  THIS  IS  A  fCAL-VALUED  FORTRAN  FUNCTION  WHICH  GENERATES 
C***  A  RANDOM  SAMPLE  ACCORDING  TO  A  NORMAL  PROBABILITY 
C++*  WITH  THE  GIVEN  INPUT  MEAN  AND  STANDARD  DEVIATION. 

C++*  TIC  TECHNIQUE  IS  TO  APPROXIMATE  A  NORMAL  DISTRIBUTION  USING 
C«»  TIC  CENTRAL  LIMIT  THEOREM.  12  INDEPENDENT  SAMPLES  ARE 
Cm*  DRAWN  FROM  A  UNIFORMS,  1)  DISTRIBUTION  AND  THEN  ADDED. 

C*m  THE  RESULT  IS  APPROXIMATELY  NORMALLY  DISTRIBUTED  WITH  MEAN  6 
Cm*  AND  STANDARD  DEVIATION  1.  THE  SAMPLE  IS  THEN  TRANSLATED  TO 
Cm*  OBTAIN  A  StfFLE  FROM  A  DISTRIBUTION  WITH  THE  GIVEN 
Cm*  INPUT  MEAN  AND  STANDARD  DEVIATION. 

C*** 

CM*  INPUTS  - 

C*M  XMEAN  -  MEAN  OF  THE  NORMAL  DISTRIBUTION  FROM  WHICH 
C*M  TIC  SAMPLE  IS  TO  BE  GENERATED. 

C*«  STDEV  -  STANDARD  DEVIATION  OF  NORMAL  DISTRIBUTION  FROM 
C*»  WHICH  SAMPLE  IS  TO  BE  GENERATED.  IF  THIS  VALLE 

CM*  IS  fCGATIVE,  (H  ERROR  ICSSAGE  IS  PRINTED. 

Cm*  INPUT/OUTPUT  - 

C*m  SEED  -  CURRENT  SEED  OF  RANDOM  NUMBER  GENERATOR. 

Cm*  OUTPUT  - 

Cm*  XNORM  -  RANDOI  SAMPLE  FROM  A  NORMAL  DISTRIBUTION  WITH 
Cm*  GIVEN  MEAN  AND  STANDARD  DEVIATION. 

C— 

C —  *IF(STANDARD  DEVIATION  IS  LEGITIMATE) THEN 
IF(STDEV.LT.O.O)GO  TO  100 

C — 

C —  *DRAW  SAMPLES  FROM  12  UNIFORM  (0,1)  DISTRIBUTIONS  AND 

C —  ADJUST  THE  MEAN  OF  THIS  RANDOM  SAMPLE  TO  ZERO 

XN0RM=UNIFM1 ( SEED ) +UNIFM1 ( SEED) +UNIFM1 ( SEED) +UNIFM1 ( SEED ) 

It  +UNIFM1(S£ED)+UNIFM1 (SEED)+UNIFM1(SEED)+LWIFM1(SEED> 

4  +UNIFM1 <SEED)+UNIFM1 ( SEED)+UNIFM1 <SEED)+UNIFM1 (SEEDJ-6. 

C— 

C —  CONVERT  TO  A  SArtLE  FROM  DISTRIBUTION  WITH  APPROPRIATE 

C —  MEAN  AND  STANDARD  DEVIATION. 

XNORM  =  XMEAN  +  STDEV*XNORM 

C — 

C —  *ELSE  (NEGATIVE  STANDARD  DEVIATION) 

GO  TO  200 
100  CONTINUE 
C — 

C —  *SET  RETURN  VALUE  TO  ZERO  AND  PRINT  ERROR  MESSAGE 
XNORM  =  0.0 
WRITE(6,?001)STDEV 

C — 

C —  *END  IF  (STD  DEV  TEST) 

200  CONTI NIC 
C — 

RETURN 


r 


9001  FORMAT ( "0$$**$*$*  XNQRM  ERROR  -  NEGATIVE  STANDARD  DEVIATION’,/, 
&  ’  $*$$$*$$  STDEV  =  “,F10.5) 

END 
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SUBROUTINE  ZBITSL! NONES, IARRAY) 


C++  ZBITSL  -  ZERO-OUT  1-BITS  IN  LEFTMOST  PORTION  OF  A  WORD. 
C++*  ZBITSL  IS  A  FORTRAN  SUBROUTINE  WHICH  WILL  ZERO-OUT 
CM*  A  SPECIFIED  NUMBER  OF  1-BITS  IN  THE  LEFTMOST  PORTION  OF 
C***  A  BIT-VECTOR.  THIS  BIT-VECTOR  IS  KEPT  IN  AN  ARRAY, 

C*«  ORGANIZED  IN  THE  FOLLOWING  FASHION  -  THE  FIRST  WORD  OF 
Cm*  TIC  ARRAY  CONTAINS  TIC  CURRENT  NUMBER  OF  1-BITS  IN  THE 
CM*  BIT-VECTOR,  AND  THE  REMAINING  WORDS  OF  THE  ARRAY  CONTAIN 
C»«  THE  ACTUAL  BIT-VECTOR.  THIS  ROUTINE  ZEROES  OUT  THE  PROPER 
Cm*  l-BITS,  AND  UPDATES  TIC  1-BIT  COUNTER  IN  THE  FIRST  WORD 
CM*  OF  THE  ARRAY. 

C*** 


Cm*  INPUT  - 

Cm*  NONES  -  NUMBER  OF  1-BITS  TO  BE  ZEROED-OUT.  NOTE  THAT 
Cm*  NONES  MUST  BE  .LE.  NUMBER  OF  IS  IN  THE  BIT- 

Cm*  VECTOR. 

Cm*  INPUT/OUTPUT  - 

Cm*  IARRAY  -  ARRAY  CONTAINING  THE  BIT-VECTOR  TO  BE 
Cm*  MODIFIED.  IARRAY!  1)  IS  A  COUNTER  WHICH  INDICATES 

Cm*  THE  CURRENT  NUMBER  OF  1-BITS  IN  THE  BIT-VECTOR. 

Cm*  THE  ACTUAL  BIT- VECTOR  IS  THE  CONSECUTIVE  BITS 

Cm*  CONTAINED  IN  THE  WORDS  IARRAY(2) -I  ARRAY  (LENGTH) 

Cm*  COMMON  INPUT  - 

Cm*  LENGTH  -  LENGTH  I  IN  COMPUTER  WORDS)  OF  THE  ARRAYS 
Cm*  CONTAINING  THE  VARIOUS  BIT-VECTORS;  IFLYVC,  ETC 


C — 

PARAMETER  MAXAC=108,  MAXBIT=36,  MAXVEC=2+<NAXAC-1 >/MAXBIT 
COMMON  /ACSTATE/  LENGTH, NACVC! HAXVEC ) ,  IFLYVC(MAXVEC), 
t,  MAINVC(MAXVEC),NORSVC(MAXVEC),  LOSTVC! HAXVEC) 

DIMENSION  IARRAY! 1) 

C— 

C—  *INITIALIZE  DO 
NLEFT  =  NONES 

INDEX  =  2 

C — 

C —  *00  WHILE (ALL  APPROPRIATE  WORDS  HAVE  NOT  BEEN  MODIFIED) 

1000  CONTINUE 

IF(NLEFT.LE.O)  GO  TO  4000 
IF! INDEX. GT.LENGTH)  GO  TO  4000 

C--  *COUNT  NUMBER  OF  IS  IN  NEXT  WORD 

NXT1S  =  N1BITS!  IARRAY! INDEX)  ) 

C— 

C —  *IF( NOT  ALL  1-BITS  IN  THIS  WORD  SHOULD  BE  ZEROED) 

IF(NXT1S. Li. NLEFT)  GO  TO  2000 

C— 

C —  *ZERO-OUT  THE  APPROPRIATE  NUMBER  OF  IS 

IARRAY! INDEX)  =  XOR!  IARRAY! INDEX)  , 
i  LBITS! IARRAY! INDEX), NLEFT)  ) 


C — 
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C —  ♦ELSE  (ALL  1-BITS  IN  THIS  WORD  ARE  TO  BE  ZEROED) 

GO  TO  3000 

2000  CONTINUE 

—  *ZER0-0UT  THE  ENTIRE  WORD 

I ARRAY (INDEX)  =  0 

—  *END  IF  (ALL  IS  TEST) 

3000  CONTINUE 

—  ♦UPDATE  NLWBER  OF  IS  LEFT  TO  ZER0-0UT 

NLEFT  =  NLEFT  -  NXT1S 

—  ♦INCREMENT  INDEX  FOR  NEXT  WORD  OF  BIT-VECTOR 

INDEX  =  INDEX  +  1 

—  ♦END  DO  (WORD  LOOP) 

GO  TO  1000 
4000  CONTINUE 

—  *UPDATE  IS  COUNTER  FOR  THIS  BIT  VECTOR 

I ARRAY ( 1 )  =  IARRAY(l)  -  NONES 

C— 

C —  ♦PERFORM  ERROR  DECK  TO  ENSURE  APPROPRIATE  NUMBER 

C—  OF  1-BITS  WAS  ZEROED-OUT 

IF(NLEFT.GT.O)  WRITE(6,9001)NONES,IARRAY(l),fLEFT 

C— 

RETURN 

9001  FORMAT ( ZBITSL  ERROR  -  NOT  ENOUGH  IS  TO  ZERO',/. 
J,  '  tmmt  NONES,  I  ARRAY  (1),  NLEFT  =  ',315' 

END 
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SCENARIO  INPUT  PROGRAM 
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C  0S29/N232D/SGM/ZDATA 

C  THIS  PROGRtfl  PROVIDES  AN  INTERACTIVE  INTERFACE  TO  THE  SORTIE 
C  GENERATION  MODEL.  BY  ALLOWING  THE  USER  TO  MODIFY  THE  INPUT 
C  ITEMS  IN  THE  NAMELIST  ZDATA. 

PARAMETER  WXA=14,MAXCYC=10,MAXAVARY=4,HAXCVARY=1. 

It  HAXVARY=HAX AVARY+NAXCVARY . MAXPAR=MAX VARY+MAXA. MAXDAY=30 
CHARACTER*25  RESPCNCE 
CHARACTER*2  DAY 
CHARACTER«20  ITEM 

CHARACTERS  A(NAXPAR),INFHAN,NONGRS, NSIM, SEED.UE.MAXFLY, RES, 
It  ATTRIT, ANYBRK, ANYGA, RMICH, NUMDAY. NCYCLE, FTOTYM, LTOTYM, 

It  PREFLT . SRTLTH. SCALE. I AUGHT . AVARY(MAXDAY . MAXAVARY ) . 

It  CVARY  ( HAXDAY ,  MAXCYC ,  MAXCVARY ) 

LOGICAL  VARY(MAXVARY) 

COMMON  /EDATA/  DAY, RESPCNCE 
COMMON  /VDATA/  ITEM 
COmON  /VARYSW/  V«Y 
COMMON  /GLOBAL/ICYC. IDAYS 

COfflON/INZDATA/ INFMAN.NONORS, NSIM. SEED. UE. MAXFLY. RES, ATTRIT, 
St  ANYBRK, ANYGA,  RftICM,  NUMDAY,  NCYCLE,  FTOTYM,  LTOTYM, 

St  PREFLT,  SRTLTH,  SCALE,  IAUGNT 

NACELIST/ZDATA/INFMAN,NONORS,NSIH,UE, MAXFLY, RES, ATTRIT, 

St  ANYBRK, ANYGA, RNMCM, NUMDAY. NCYCLE, FTOTYM, LTOTYM, PREFLT, 

St  SRTLTH,  SCALE,  IAUGNT 
EQUIVALENCE  (A(1),INFMAN) 

DIMENSION  LIST (MAXPAR ) , LI STOUT (MAX A ) , LISTVARY ( MAXVARY ) 

C  LIST  IS  USED  AS  AN  INDEX  IN  THE  ARRAYS  WHICH  CORRESPOND  TO 
C  TIC  ZDATA  ITEMS.  IT  DETERMINES  THE  ORDER  IN  WHICH  THE 
C  PARAMETERS  WILL  BE  LISTED.  IT  IS  DEFINED  AS  FOLLOWS! 

C  LIST! I)  =  #  WHICH  INDICATES  WWT  PARAMETER  IS  TO  BE 
C  ITH  IN  THE  DATA-CODE  ORDER. 

C  TIE  NUMBERS  ASSOCIATED  WITH  TIE  PARAIETERS  ARE  AS  FOLLOWS! 

C  l  :  IIFMAN  ,  2  !  NONORS  ,  3  :  NSIM  ,  4  :  SEED 

C  5  :  IE  ,  6  :  MAXFLY  ,  7  :  RES  ,  3  :  ATTRIT 

C  9  :  ANYBRK  ,  10  :  ANYGA  ,  11  i  RNMCM  ,  12  :  NUMDAY 

C  13  :  NCYCLE  ,  14  i  FTOTYM  ,  15  :  LTOTYM  ,  16  :  PREFLT 

C  17  :  SRTLTH  ,  18  :  SCALE  ,  19  !  IAUGNT 

DATA  VARY/.F. ,.F.,.F. ,.F.,.F./ 

DATA  LISTOUT/4, 14, 15. 1 , 2, 3, 5, 9, 1 1 , 12, 16, 17, 18, 19/ 

DATA  LISTVARY/ 1,2, 3, 4, 5/ 

DATA  LIST/3,4,5,9,11,12,14,15,17,16,1,2,19,18,8,10,13,7,6/ 
READ(08, ZDATA) 

CALL  FCLOSE  (8) 

ENCODE ( DAY , 1 >  HAXDAY 
1  FORMAT! 12) 

CALL  SPRAY< ATTRIT, AVARY( 1, 1), HAXDAY) 

CALL  SPRAY(ANYGA,AVARY< 1,2), HAXDAY) 

C&L  SPRAY(NCYCLE,AVARY(1, 3), HAXDAY) 

CALL  SPRAY (MAXFLY , CVARY (1,1,1), HAXDAY*MAXCYC) 

CALL  SPRAYt'O  '.AVARYl 1,4), HAXDAY) 

CALL  SPRAY ( RES, AVARYf 1,4), 1) 

DECODE (NCYCLE, 5)  ICYC 
DECODE  I NUMDAY,  5)  IDAYS 


i 

i 


I 


1 

aUi'aC*lvOT  JlLfoU) 
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CALL  FPARAM(1,80) 

NUIW«Y=0 

PRINT  ENTER  RMDOH  NUMBER  SEED' 

READ  ,A(4) 

PRINT  ,'  ' 

PRINT  . '  CODE  -  FUNCTION' 

PRINT,'  1  SET  PARAMETERS  FOR  SON  RUN' 

PRINT  .'  2  LIST  CURRENT  SCEJWRIO' 

PRINT  , '  3  CHANGE  SCENARIO' 

100  CONTINUE 
PRINT  ,'  ' 

PRINT  ,'  ENTER  FUNCTION  CODE  U-SET/2-LIST/3-CHANGE)' 

CALL  ANYERRdERR) 

CALL  FT0PT(32, 1,1,0) 

200  CONTINUE 
IERR=0 
READ  i ICOOE 

IFdERR.EQ.32)  GOTO  250 

IF  ((ICOOE  .GE.  1)  .MO.  (ICOOE  .LE.  3))  GO  TO  300 
250  CONTINUE 

PRINT  , '  FUNCTION  CODE  MUST  BE  IN  RANGE  1-3,  PLEASE  REENTER' 
GO  TO  200 
300  CONTINUE 

CALL  FX0PTI32, 0,0,0) 

GO  TO  (600,500,400)  .ICOOE 
400  CONTINUE 

CALL  CHANGE(CVARY,AVARY,LISTVARY,NUMVARY.A,LIST) 

GO  TO  100 
500  CONTINUE 

CALL  LISTA(CVARY,AVARY,LISTVAAY,NUHVARY,A,LIST> 

GO  TO  100 
600  CONTINUE 
PRINT  ,'  ' 

PRINT  , '  TO  BEGIN  SIMULATION  USE  EITHER, ' 

PRINT  ,'  ' 

PRINT  , '  ROC  0S29/N232D/SGN/RSGMTSS  -  FOR  TIME  SHARING  RUN' 
PRINT  ,'  OR,' 

PRINT  ,'  RUN  0S29/N232D/SGM/RSGNBTCH  -  FOR  BATCH  RUN.' 

IF  ((A(l)  .EQ.  'Y')  .OR.  (Ad)  .E9.  'YES'))  GO  TO  700 
A(1)='F' 

GO  TO  800 
700  CONTINUE 

A(1)='T' 

800  CONTINUE 

IF  ( (A<2)  .EQ.  'Y')  .OR.  (A(2)  .EQ.  'YES'))  GO  TO  900 
A(2)='F' 

GO  TO  1000 
900  CONTINUE 

A(2)='T' 

1000  CONTINUE 

IF  ( (A(19).EQ. 'Y'l.OR. (A(19),EQ. 'YES'))  GOTO  1050 
A< 19 )='0 
GOTO  1075 
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1050  CONTINUE 

A( 19)*'l 
1075  CONTINUE 

CALL  FIOIA(Ol.O) 

URITE101.5)  ( VARY < I >  > Is 1 > MAXVARY > 

WRITE101 .5)  ( (A(LISTOUT(I) ), '  ^ ) , I=i.«AXA-2> 

HRITE(01,5)  A1LIST0UT (MAXA-1 ) ) » ALLISTOUT (HAXA) ) 

5  FORMAT! V) 

DECOOE!FTOTYN,5)  IFTOTYM 
DECODE (LTOTYN, 5)  ILTOTYM 
DECODE (PREFLT, 5)  XPREFLT 
DECODE (SRTLTH, 5)  XSRTLTH 
DO  1100  J=1,IDAY$ 

DEC00E(AVAfiY(J>3)>5)  INCYCLE 

CALL  SETTIME! IFTOTYM, ILTOTYM, XPREFLT, XSRTLTH, WAITCYC.TYMNITE, 
4  INCYCLE) 

URITE(01,5)  (AVARY(Jtl), I=1,HAXAVARY),UAITCYC,TYMNITE 
URITE(OlfS)  (!CVARY(J,K, I >,K=1, INCYCLE), 1=1, MAXCVARY) 

1100  CONTINUE 
STOP 
END 
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C««*  LISTfl  IS  ft  FORTRAN  SUBROUTIf€  WHICH  LISTS  THE  CURRENT 
C*HHrt  VALUES  OF  TIE  PARAfETERS  ALONG  WITH  TIEIR  COOES. 
CiiiiiiiHiniiiiiHmiiimimimnmHinnmiiniiiinnii 
SUBROUTINE  LISTA(CVARY.AVARY.LISTVARY>NUWARY,A,LIST) 

PARAMETER  MAXA=  1 4 , MAXAVARY=4,MAXCVARY= 1 ,  MAXDAY=30, 

St  MAXCYC=i 0.  MAXVARY=MAXAVARY+MAXCVARY .  MAXPAR=MAXA+MAXVARY 

CHARACTERS  A  ( NAXPAfi ) .  AVARY  ( MAXDAY .  MAX AVARY ) . 

St  CVARY (MAXOAYi MAXCYC. MAXCVARY ) . NUMDAY 
CHARACTER*^  CNAME(NAXPAR) 

INTEGER  LIST (MAXPAR) .LISTVARY(MAXVARY) 

COMMON  /GLOBAL/  ICYC.IOAYS 

DATA  Omj'  INFINITE  MANPOWER  (YES/NO)  ' 

St  ,'  INFINITE  SPARE  PARTS  (YES/NO)' 
ic  ,'  #  SIMULATIONS 

St  RAWWM  NUMBER  SEED 

k  .'  UE 

k  ,'  MAXIMUM  LAUNCH-SIZE  (C/D)  ' 

St  RESERVE  AIRCRAFT  (D)  ' 

St  , '  ATTRITION  RATE  (D)  ' 

St  AIRCRAFT  BREAK  RATE 

St  . '  GROUND  ABORT  RATE  (D)  ' 

St  ,'  INITIAL  NMCH  RATE 

St  ,'  I  DAYS 

St  #  MASS  LAUNCHES  PER  DAY  <D)  ' 

St  FIRST  TAKEOFF  TIME 

St  ,'  LAST  TAKEOFF  TIME 

St  MINIMAL  RECO^RY  TIIE  (HRS)  ' 

St  ,'  SORTIE  LENGTH  (UK) 

St  MAX  SORTIES/DAY  FOR  PLOT  (OR  0)  ' 

St  ,'  AUGIENT  RESERVE  AC  (YES/NO)  '/ 

PRINT  ' 

PRINT  . 'THE  CURRENT  VALUES  OF  THE  SCENARIO  INPUTS  ARE  :' 

PRINT  , '  ' 

PRINT  ,'  INPUT  SCENARIO  ITEM  CURRENT' 

PRINT  CODE  VALUE' 

PRINT  ' 

PRINT  10.  <(I.CNAME(LIST(I)).A(LIST(I))).I=IiMAXA) 

10  F0RMAT(3X.I2iA33i '  =  '.A7) 

NOTVARY=MAXVARY-NUHVARY 
PRINT  ' 

PRINT  .'THE  FOLLOWING  ITEMS  fWY  VARY  BY  DAY(D)  OR  CYCLE/DAYIC/D)' 
PRINT  ' 

PRINT10.  (MAXA+LISTVARY(  I )  ,CNAME<LIST(MXA+LISTVARY<  I))), 

St  A(LIST<MAXA+LISTVARY( I )  > ) ,  1=1, NOTVARY) 

IF(NUMVARY.LE.O)  GOTO  99 

ENTRY  LISTONE( CVARY . AVARY .LIST. LI STVARY , NOTVARY ) 

ITIMES=(IDAYS*9)/10 

JMIN=1 

DO  900  I— ZTIMES 

vJMAX=MINO(  JMIN+9,  IDAYS) 

PRINT20.  (J^tMUN.JMAX) 

20  FORMAT! 'O', 'DAY  M2.2X.9I7) 
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DO  700  K=NOTVAflY+l >HAXVARY 

GOTO  (400,400,400,400,500,500).  LISTVMWK) 

400  CONTINUE 

PRINT30»MAXA+USTVARY(K),CNAME(LIST(LISTVARY(K)+HAXA))> 
li  (AVARY(J,LISTVARY(K)  bvKJMIN,  JMAX) 

30  FORMAT! 'O', 2X, 12, A33/6X.10A7) 

GOTO  700 
500  CONTINUE 

PRINT40,HAXA+LISTVAfiY(K)>CNAf€(LIST(LISTVARY(K)+NAXA)) 

DO  600  L=1,ICYC 

PRINT50.L,  <  (CVARY(J,L,LISTVARY(KH1AXAVARY)), 

&  JMIIN.JHAX) 

40  FORMAT! 'O', 2X, 12, A33/'CYCLE') 

50  F0f91AT(2X,  I2.2X,  10(  1X.A6)  > 

600  CONTINUE 

700  CONTINUE 

JHINM1IN+10 
900  CONTINUE 
99  CONTINUE 
RETURN 
END 
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CHiiii»nnnm«>mmminimiiinninnnniniiiHtmm 

CHHHrt  QM£  IS  A  FORTRAN  SUBROUTItC  WHICH  IS  USED  TO  CHANGE 
C*HHHrt  T>€  VALUES  OF  TIC  PWWMETERS.  T>€  USER  HAY  CONTINUE 
Chhhw  ENTERING  PARAftTER  CODES  AM)  THEIR  VALUES  AS  LONG  AS  IS 
C*****  DESIRED,  EXITING  FROM  THE  ROUTINE  WHEN  A  PARAMETER  CODE  OF 
Cm**  0  IS  ENTERED. 

Cl«IIHIHIIimHIHHHIInm»llllWHH«HHnilHHHHm» 

SUBROUTUt  CHANGE ( CVARY , AVARY .LISTVARY , NUHVARY > A, LIST ) 

PARAtCTER  MAXCYC=10,HAXDAY=30>HAXA=14,MAXAVARY=4, 

Sc  HAXCVARY=1 >  MAXVARY=MAXAVARY+MAXCVARY  >  MAXPAR=MAX A+MAXVARY 
CHARACTERS  ITEM 

CHARACTERS  CVARY  ( MAXDAY ,  MAXCYC, NAXCVARY ) ,  A  ( HAXPAR ) , 

Sc  AVARY  < NAXDAY ,  MAXAVARY ) ,  NUHDAY ,  VALUE 
LOGICAL  VSWITCH,VARY(MAXVARY) 

DIMENSION  OCVARY  ( MAX  VARY )  >  LI  ST  ( MAXPAR ) ,  L I STVARY  ( MAX  VARY ) 

EXTERNAL  VALUEFIR 
CONION  /VDATA/  ITEM 
COMMON  /VARYSH/  VARY 
COMMON  /GLOBAL/  ICYC, IDAYS 
PRINT  ' 

PRINT  , '  IF  CHANGES  OPE  DESIRED  ENTER  THE  INPUT  CODE  OF  THE  ITEM' 
PRINT  , '  TO  BE  ALTERED,  ELSE  ENTER  O' 

100  CONTINUE 

CALL  FXCPT<32, 1,1,1) 

CALL  ANYERR(IERR) 

CALL  FXALT(VALUERR) 

IERR=0 

VSMITCH=.F. 

READ  .ITEM 
5  FORMAT! V) 

DECODE! ITEM, 5)  ICOOE 
CALL  FXOPT! 32, 0,0,0) 

IF(IERR.(€.32)  GOTO  200 
VSWITCH=,T. 

DECODE! ITEM, 5)  ICODE, VALLE 
200  CONTINUE 

IF  <<ICODE  .GE.  0)  .m.  (ICODE  .L£.  fVUPAR))  GO  TO  300 
PRINT10, '  INPUT  CODE  MUST  BE  IN  RA*  .  .HAXPAR. 

Sc  ',  PLEASE  REENTER' 

10  F0RMAT(A31, I2.A16) 

GO  TO  100 
300  CONTINUE 

IF  (ICODE  ,EQ.  0)  GO  TO  99 
IF  ( ICODE.  LE.NAXA)  GOTO  700 
IF  ! ( ICODE-MAXA ) . LE. MAXAVARY )  GOTO  500 
ICVCODE=ICODE-MAXA-HAXAVARY 
IF  (.NOT.VSHITCH)  GOTO  400 
A(LIST( ICODE) >=VALUE 

CALL  CHECK(ICOOE,A(LIST(ICODE)),lIST(ICODE)) 

CALL  SPRAY(A(LIST!IC0DE)),CVARY!1,1,ICVC0DE), 

Sc  MAXDAY*MAXCYC) 

GOTO  850 

400  CONTINUE 
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CALL  READVARY<CVAfiY>AVARY>LIST,ICODE-rtAXA»NUWARY»LISTVARY, 
&  A(LIST( ICOOE) ) ) 

GOTO  850 
500  CONTINUE 

IF  (.NOT.VSWITCH)  GOTO  600 
A(LIST( ICQDE) )=VALUE 

CALL  CHECK! ICODE, A!LIST! ICOOE)). LIST! ICODE)) 

CALL  SPRAY(A(LIST ( ICODE) ) > AVARY(  1»  ICOOE— MAXA) iflAXDAV) 

IF  (IC0DE-NAXA.EQ.4' 

&  CALL  SPRAYI'O  ' , AVARY(2.4),MAXDAY-1 ) 

GOTO  850 
600  CONTINUE 

CALL  READVARY(CVARY,AVARY,LIST>  ICODE-NAXA,  NUMVMY.LISTVttY, 
tr  A!LIST( ICOOE))) 

GOTO  850 
700  CONTINUE 

IF  (VSMITCH)  GOTO  800 
PRINT  ,'  ' 

PRINT  ,'  ENTER  MEN  VALUE  OF  ITEM,  OLD  VALUE®' >  A(LIST( ICODE) ) 
READ  .VALUE 
300  CONTINUE 

A(LIST< ICODE) )=VALUE 

CALL  CHECK! ICODE, AfLIST ( ICODE) ) .LIST ( ICODE) ) 

350  CONTINUE 
PRINT  ' 

PRINT  ENTER  NEXT  INPUT  CODE  OR  0  IF  FINISHED' 

GOTO  ( 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 
i  100,900,1000,100,100,100,100,100,100)  , LIST! ICODE) 

900  CONTINUE 

DEC00E(A<12),5>  IDAYS 
GOTO  100 
1000  CONTINUE 

DECODEIA! 13), 5)  I 
IF  (I.GT.ICYC)  ICYC=I 
GO  TO  100 
99  CONTINUE 
RETURN 
EM) 
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C«hh»  Q€CK  IS  A  FORTRAN  SUBROUTINE  WHICH  INSURES  THAT  THE 
C«+«  NEW  VALUE  ENTERED  FOR  A  PARAMETER  IS  LEGITAMATE. 


SUBROUTINE  CHECK! I CODE, ITEH>LICODE) 

PARAMETER  MXDAY=30,MXCYC=10,MXAC=108 
PARAMETER  HAXP(«=19 
CHARACTERS  ITEM 
CHARACTERS  MESSAGE (MAXPAR) 

DIMENSION  MAX (MAXPAR) 

DATA  MESSAGE/ 'INFINITE  MANPOWER'. 'INFINITE  SPARES'.' 

Sc  '  UE  >  MAXAC'.'  MAXFLY  >  MAXAC'.'  ','  ATTRIT  >  1', 

Sc  '  BREAK  RATE  >  1'.'  GABCRT  RATE  >  1'. 

i  '  INITIAL  READINESS  >  1'.'  »  DAYS  >  MAXDAY'. 

S>  '  «  LAUNCHES  >  NAXCYC'. 

Sc  '  FIRST  T-0  TIME  >  2400'.'  LAST  T-0  THE  >  2400', 

Sc  '  SORTIE  LENGTH  >  24.0'.'  PRERIGHT  TIME  >  24.0','  ', 

Sc  '  AUGMENT  RESERVE  '/ 

DATA  MX/0, 0, 0, 0,  MXAC.MXAC.  0, 1 , 1 , 1 , 1 ,  MXDAY,  NAXCYC,  2400, 2400, 
Sc  24,24,0,0/ 

GO  TO  (100,100,99,99,300,300,99,300,300,300.300,300 
Sc  ,300,300,300,300,300,99,100)  .LICODE 
100  CONTINUE 

OIL  YORN( MESSAGE (LICODE) , ITEM, ICODE) 

GO  TO  99 
300  CONTINUE 

CALL  ILTJ(HESSAGE(LICOOE), ITEM, ICODE, MX(LICODE)) 

99  CONTINUE 
RETURN 
END 
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C***+*  ILTJ  IS  A  FORTRAN  SUBROUTINE  WHICH  ENSURES  THAT  A 
C**+*»  PARAMETER  VALUE  IS  WITHIN  LEGAL  BOUNDS.  0  =>  VA.UE  =>  MAX, 
C***"  BY  PROMPTING  THE  USB?  FOR  A  NEW  VALUE  IF  IT  IS  OUT  OF  BOUNDS 


SUBROUTINE  ILTJOCSSAGE, ITEM, ICODE, MAX) 
CHAfiACTER*20  ITEM 
CHARACTER*25  MESSAGE 
REAL  NUN 

CALL  ANYERR(IERR) 

Cm  FX0PTI32, 1,1.0) 

100  CONTINUE 
IERR=0 

DECODE! ITEM, 20)  NUN 
IF  (IERR.NE.  32)  GOTO  150 

PRINT  ,'  INPUT  ITEM  MUST  BE  NUMERIC' 

GOTO  300 
150  CONTINUE 
20  FORMAT(V) 

IF  (NUN  .GE.  0.0)  GO  TO  200 

PRINT  ,'  INPUT  ITEM  '.ICODE,'  MUST  BE  >  0' 
GO  TO  300 
200  CONTINUE 

IF  (NUN  .LE.  )WX)  GO  TO  99 
PRINT  .MESSAGE 
PRINT  .ITEM, '>', MAX 
300  CONTINUE 

PRINT  ,'  PLEASE  RENTER  IMVT  ITEM  '.ICODE 
READ  -ITEM 
PRINT  ,'  ' 

GO  TO  100 
99  CONTINUE 

C«i.  FX0PT(32, 0,0,0) 

RETURN 

END 


CmminmtHmimmiiHmiiiiiiiHtHUHwmminmni 


Chw  YORN  IS  A  FORTRAN  SUBROUTINE  WHICH  ENSURES  THAT  ITEM  IS 
C»hh  EITHER  YESI/Y)  OR  N01/N),  BY  PROfPTING  THE  USER  FOR  A  NEW 
VALUE  IF  IT  IS  INCORRECT.  UNTIL  IT  IS. 


SUBROUTINE  YORNIMESSAGE. ITEM. ICODE) 

CHARACTERS  ITEM 
CHARACTER+25  ICSSAGE 
10  CONTINUE 

IF  ((ITEM  .EQ.  'Y')  .OR.  (ITEM  .EQ.  'N')  .OR. 

&  (ITEM  .EQ.  'YES')  .OR.  (ITEM  .EQ.  'NO'))  GO  TO  99 
PRINT  .NESSAGE,'  MUST  BE  YES  OR  NO.  PLEASE  REENTER' 
READ  .ITEM 
GO  TO  10 
99  CONTINUE 
RETURN 
END 
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CM***  SEGMENT  (SETTIfE  -  SET  WAIT  CYCLE  &  OVERNIGHT  TIt€S) 
SUBROUTINE  SETTIfE(  IFTOTYM,  ILTOTYM,  XPREFLT,  XSRTLTH.WAITCYC, 

L  TYMNITE, INCYCLE) 

Ci****  SETTIME  IS  A  FORTRAN  ROUTINE  USED  TO  CALCULATE  THE 
C**+++  WAIT  CYCLE  AM)  OVERNIGHT  TIMES  FOR  SORTIES  GIVEN  T>€ 

CiHHHK  INITIAL  m  LAST  TAKEOFF  TIMES,  TT€  PRERIGHT  TIME,  THE 
I*****  LENGTH  OF  A  SORTIE  ,  AND  THE  NUMBER  O'  CYCLES  PER  DAY. 
CimumiHiHumiiHmtitiimHmiiiiiinimmiiiinium 
DECHIN  =  ABS(DECHR( ILTOTYM) -DECHR( IFTOTYM) ) 

WAITCYC  =  DECHIN/ROAT  ( INCYCLE-1 )-( XPRERT+XSRTLTH) 

IF  (HAITCYC.LT. 0.0)  STOP  ‘HAITCYC  <  0' 

TYMNITE  =  24.0  -  (XPRERT+XSRTLTH+OECHIN) 

RETURN 

EM) 
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C**«*  FUNCTION  (DECHR  -  DECIMAL  HOUR  EQUIV.  OF  MILITARY  TIME) 
C«*«  DECHR  IS  A  FORTRAN  REAL  FUNCTION  WHICH  RETURNS  THE  DECIMAL 
HOUR  EQUIVALENT  OF  AN  HOUR  SPECIFIED  IN  MILITARY  TERMS. 


K  SI*  ■  *  S  *  S  «  «  |  LiT»X«X«  2  S  2  5  2  *  I  S  S  S  «  I  S  «  S 


RBL  FUNCTION  DECHR( MILTIME) 

REAL  XMIN 

INTEGER  IHR 

I HR  =  INT(MILTIME/100) 

XMIN  =  ( (FL0AT(MILTIfC)/100.0)  -  FL0AT(IH»)/.6 

DECHR  =  FLOAT ( IHR)  +  XMIN 

RETURN 

END 


’I 


Cl . . . . . . . mum 

CWHHHI  READVARY  IS  A  FORTRAN  SUBROUTINE  WHICH  IS  USED  TO  READ 
C*****  TVE  VALUES  OF  A  PARAfCTER  WHICH  MAY  VARY  BY  DAY  OR 
C**+«  CYCLE/DAY.  THESE  (CED  TO  BE  HANDLED  SEPARATELY  WHETHER  TIE 
C****+  USER  HANTS  TO  VARY  TTEIR  VALUES  OR  NOT  AS  AN  ARRAY  IS 
C**«*  USED  AND  MUST  BE  FILLED. 

. . . 

SUBROUTINE  READVARY  ( OVARY.  AVARY .  LISTi  I  CODE .  NUWARY .  LI  STVARY  i  ITEM) 
PARAfETER  MAXCYC=  10.  MAXDAY=30.  MAXA=  1 4 .  MAXAVARYM,  MAXCVARY=1 , 

&  HAXVARY=MAXAVARY+HAXCVARY >  HAXPAR=MAXA+MAXVARY 
LOGICAL  VARY ( MAXVARY ) , EXIT, FORM 

CHARACTERS  CVARY  ( MAXDAY ,  MAXCYC,  MAXCVARY ) ,  AVARY  ( MAXDAY ,  HAXAVARY ) 
Si  .XVALUE(MAXCYC),  ANSWER,  ITEM 
CHARACTER*25  RESPONCE 
CHARACTERS  TEXT130) 

REAL  X(HAXCYC) 

INTEGER  ONEVARY < MAXVARY ) , LIST ( MAXPAR ) , L I STVARY ( MAXVARY ) 

Si  ,ILIST(  MAXVARY) 

EXTERNAL  MULTIERR.DAYSERR 
COMMON  /VARYSW/  VARY 

comoN  /global;  icyc.idays 

COMMON  /EDATA/  DAY, RESPONCE 
DATA  ONEVARY/0,0,0,0,0/ 

DATA  ILIST/1,2,3,4,5/ 

DATA  ONEVARY/0,0,0,0,0/ 

DATA  TEXT/'  ***  SYNTAX  RULES  *«',''. 

8<  'VALUES  MAY  BE  ENTERED  IN  THE  FOLLOWING  WAYS;', 

S.  '  VI)  STARTING  AT  DAY  1,  ONE  DAY  AT  A  TIME.', 

Si'  EX.  =.01','  =.02','  ...  NUMBER  OF  DAY  TIICS', 

Si  '  =.02','  ','2)  ONE  VALUE  FOR  MULTIPLE  DAYS.', 

&  '  EX.  =.01*5  WILL  ENTER  .01  FOR  THE  NEXT  5  DAYS.', 

Si  '  EX.  =.01«  WILL  ENTER  .01  FOR  THE  REST  OF  THE  DAYS.', 

Si  '  V3)  OIC  VALUE  FOR  SPECIFIC  DAYS.', 

S.  '  EX.  =.01(5-20)  WILL  ENTER  TIC  VALUE  .01  FOR  DAYS  5  THRU  20.', 
Si  '  ' , ' IF  TIC  ITEM  VARIES  BY  CYCLE  PER  DAY  IT  MAY  BE  ENTERED', 

S.  'AS  ABOVE,  OR  BY  WAVE  WITH  TIC  NUMBER  OF  CYCLES  SPECIFIED.', 

Si  '  EX.  =5*12;  12;  12! 24? 0  WILL  ENTER  THE  VALUE  12  FOR  WAVES', 

S,  '  1  THRU  3,  24  FOR  WAVE  4,  AND  0  FOR  WAVE  5,  FOR  THE  '. 

S.  •'  CURRENT  DAY.', 

S.  '  EX.  =5*12?  125 12* 24? 0 ( 5—20 )  SAIC  AS  ABOVE  EXCEPT  VALUES', 

S.'  ARE  ENTERED  FOR  DAYS  5  THRU  20.','  ', 

Si  'OPTIONS:  V=SYN  -  PRINT  TIC  SYNTAX  RULES.', 

Si  '=LIST  -  LIST  TIC  CURRENT  VALUES  OF  THE  ITEM  BEING  ALTERED.', 

Si  '=GAY  -  PRINT  TIC  CURRENT  DAY  A  VALUE  IS  BEING  ENTERED  FOR.', 

Si  '=STOP  -  ALLOWS  USER  TO  STOP  ENTERING  VALUES.'/ 

ISTART=1 

ILIM=1 

PRINT10, '  DO  YOU  WANT  PARAMETER  '.HAXA+ICODE, 

S,  '  TO  VARY  BY  DAY  ?' 

10  FORMAT!'  '/'  ',A23, I2.A18) 

READ  ,MSWER 

CAL  YORN('  YOUR  RESPONCE '.ANSWER) 

IF  UANSWER.EQ. 'Y' ). OR. (ANSWER. EQ. 'YES'))  GOTO  100 
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PRINT  .'  ' 

PRINT  ENTER  NEW  VALUE  OF  ITEM.  OLD  VALUE*', ITEM 
REM)  .RESPONCE 
L£NGTH=NAXDAY 
VARY< ICODE >=.F. 

IF  (ICODE.NE.4)  GOTO  75 
LENGTH*  1 
EXIT=.T. 

CALL  SPRAYf'O  ',AVMW(2.4),HAXI)AY-1> 

75  CONTINUE 

GOTO  700 
100  CONTINUE 

IF  <  VARY  ( ICODE ) )  GOTO  150 
VARY ( ICODE)*.  T. 

NEXT =HAX VAR Y-NUNVARY 
TENP=LI STVARY < ICXT ) 

LISTVARY(NEXT)=ICODE 
LISTVARY(ILIST( ICODE) )=TEHP 
TEMP=ILIST( ICODE) 

ILIST(IC0DE)=4tXT 
ILIST(NEXT)=TENP 
NUNVARY=NUHVARY+1 
150  CONTINUE 

CALL  ANYERR(IERR) 

CALL  FX0PT(32,M.l) 

CALL  FXOPTW,  1,1,1) 

EXIT*.F. 

5  FORMAT(V) 

PRINT  ,'  ' 

PRINT  , '  MOULD  YOU  LIKE  THE  SYNTAX  RULES  EXPLAIfO  ?' 
READ  .ANSWER 

CALL  YORN('  YOUR  RESPONCE'. ANSWER) 

IF  (( ANSWER. EQ. 'Y'>. OR. ( ANSWER. E8.  'YES'))  PRINT15, 
k  (TEXT (I).I-l. 30) 

15  FORMAT ('  ' . A63) 

PRINT  ,'  ' 

PRINT20. '  ENTER  VALUES  FOR  ITEM  ' ,  IC0DE-H1AXA 
20  F0RHAT(A25, 13) 

200  CONTINUE 

READ  .RESPONCE 

IF  ( RESPONCE. EQ. 'STOP')  GOTO  900 
IF  (RESPONCE. NE. 'SYN')  GOTO  300 
PRINT  .TEXT 
GOTO  200 
300  CONTINUE 

IF  ( RESPONCE. NE. 'LIST')  GOTO  400 
OtEVAR  Y  ( MAX  VAR  Y ) = I  CODE 

CALL  LISTOTt ( CVAfiY , AVARY .LIST, ONEVAfiY , MAXVARY-1 ) 
GOTO  200 
400  CONTINUE 

IF  ( RESPONCE. NE. 'DAY')  GOTO  450 
PRINT 30. ISTART 
30  FORtWTC'  DAY  =  M2) 
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GOTO  200 
450  CONTINUE 
IERR=0 
L£NGTH=1 

IF  (ICODE.LE.MAXAVARY)  GOTO  600 
FOR*=.F. 

DO  500  J=2,4 
INDEX=J 

IF  (K0MPCH(RESP0NCE,I®EX,'#',1).I€.0)  GOTO  500 
CALL  CONCAT ( RESPONCE, INDEX M ) 

DECODE  (RESPONCE,  5)  ILIM, RESPONCE 
CALL  REHOSEHI (RESPONCE, ILIM, FORM) 

IF  (ILIH.LE.NAXCYC)  GOTO  500 
PRINT40, ILIM.NAXCYC 

40  FORMAT! 'O'.'  »  CYCLES  >  MAXCYC'/I4,'  >M4/ 

k  'PLEASE  REENTER') 

GOTO  200 

500  CONTINUE 

IF  (.NOT.FORfl)  GOTO  600 

PRINT  FORMAT  ERROR  IN  INPUT  MAES,  PLEASE  REENTER' 

GOTO  200 
600  CONTINUE 

CALL  FXALT(HULTIERR) 

DECODE (RESPONCE, 5)  <X(I>, 1=1, ILIM) 

IF  ((IERR. NE. 32). AND. (IERR. NE.67))  GOTO  700 
CALL  FXALT(DAYSERR) 

IERR=0 

DECODE (RESPONCE, 5)  (X(I), I=1,ILIH>, LENGTH 
IF  ( ( IERR. NE. 32) . AND. ( IERR. NE.67) )  GOTO  700 
IERR=0 

DECODE (RESPONCE, 5)  (X(I), 1=1, ILIN),JST ART, LENGTH 
IF  (IERR.NE.32)  GOTO  650 

PRINT  ,  'FORMAT  ERROR  IN  INPUT  MUES,  PLEASE  REENTER' 

GOTO  200 
650  CONTINUE 

IF((JSTART.GT.O).AND. (JSTART.LE. LENGTH). AND. (LENGTH. LE.MAXDAY)) 
k  GOTO  675 

PRINT  .'ILLEGAL  DAYS  SPECIFICATION,  PLEASE  REENTER' 

GOTO  200 
675  CONTINUE 

ISTART=JSTART 

LENGTH=LENGTH-ISTART+1 

EXIT=.T. 

700  CONTINUE 

IF  (LENGTH.GT.O)  GOTO  715 

PRINT  , 'ILLEGAL  LENGTH  SPECIFICATION,  PLEASE  REENTER' 

GOTO  200 
715  CONTINUE 

LENGTH=MINO(LENGTH, IDAYS-ISTART+1 ) 

DECODE (RESPONCE, 5)  (XVALUE(I),I=1,ILIM) 

GOTO  (725,725,725,725,750)  , ICOOE 
725  CONTINUE 

CALL  CHECX(MAXA+IC0DE,XVALUEI1)>LISTINAXA+IC0DE)) 
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C«1  SPRAY(XVALUE(l),AVARY(ISTARTi ICQDE). LENGTH) 

GOTO  300 
750  CONTINUE 

ICVCODEaICOOE-HAXAVARY 
DO  775  I=liILIH 

CrtJ.  C)€CX(t1AXA+IC0DE,XVALUE(I)iLIST(f1AXA+IC0DE)) 

CALL  SPRAY ( XVALUE ( I ) » CVARY ( ISTART > I *  I CVCODE), LENGTH) 

775  CONTINUE 

DO  785  I=ILHHltMAXCYC 

CALL  SPRAY( XVALUE< ILIM) »CVARY< ISTART. I> ICVCOOE) » LENGTH) 
785  CONTINUE 
800  CONTINUE 

ISTARMSTART+LENGTH 

IF  < ISTART. GT.IDAYS)  EXITa.T. 

ITEN=XVALUE(1) 

IF  (.NOT.EXIT)  GOTO  200 
900  CONTINUE 

CALL  FX0PT(67, 0,0,0) 

RETURN 

END 


Chw  VALUERR  IS  A  FORTRAN  SUBROUTINE  USED  AS  AN  ALTERNATE 

ERROR  PROCEDURE  TO  TEST  IF  A  PARAJCTER  VALUE  HAS  BEEN  ENTER 
C**«*  ALONG  WITH  ITS  COTE  (I.E.  15;. 01).  IF  SO  IT  CORRECTS 
C»****  THE  PROBLEM. 

CmniimmiHHwmmnmmiiniHHHHHHHmHHHH 

SUBROUTINE  VALUERR 
COMMON  /VDATA/  ITEM 
DO  200  1=2.20 
IM£X=I 

IF  <KOTf>CH<ITEH,  INDEX, 'I'.ll.NE.O)  GOTO  100 
CALL  CONCATI  ITEM.  INDEX. '.'.D 
GOTO  300 
100  CONTINUE 
200  CONTINUE 
300  CONTINUE 
RETURN 
END 
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C«HHrt  MULTIERR  IS  A  FORTRAN  SUBROUTINE  USED  AS  AN  ALTERNATE 
C***«  EROR  PROCEDURE  TO  TEST  IF  THE  VALUE  OF  A  PARAMETER  WHICH 
NAY  VARY  HAS  BEEN  SPECIFIED  FOR  MORE  THAN  ONE  DAY 
C***+*  (I.E.  .01*4).  IF  SO  IT  CORRECTS  THE  CHARCTER  STRING. 

Cl»»llHHIIIHIIimillimHIIII[[UHimillllillll»HHHWI 

SUBROUT I  f€  MULT I ERR 
COMMON  /EBATA/  DAY.RESPONCE 
DO  200  1=2,25 
INDEX=I 

IF  (KOMPCHIRESPONCE, INDEX, '*',!). NE.O)  GOTO  100 
CALL  CONCATfRESPONCE, INDEX,'. ',1> 

IF  (KOMPCHI RESPONSE, INEEX+1, '*'» 1 >.EQ. 0) 
tc  CALL  CONCATIRESPONCE.INDEX+1, DAY,  1,2) 

GOTO  300 
100  CONTINUE 
200  CONTINUE 
300  CONTINUE 
RETURN 
END 
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Cm**  DAYSERR  IS  A  FORTRAN  SUBROUTINE  USED  AS  AN  ALTERNATE 
C*m*  ERROR  PROCEDURE  TO  TEST  IF  THE  VALUE  OF  A  PARAMETER  WHICH 
Cm**  NAY  VARY  HAS  BEEN  ENTERED  FOR  SPECIFIC  DAYS  (I.E.  5(5-15)) 
C**m  if  SO  IT  CORRECTS  THE  CHARACTER  STRING. 
Cmmmmmmm**m*mmm*mmmm*m*mm*m 
SUBROUTINE  DAYSERR 
CHARACTER*  1  Ofi<3) 

COftlON  /EDATA/  DAY.RESPONCE 
DATA  CHR/M', '-',')'/ 

ICHR=1 

DO  200  1=2,25 
INDEX=I 

IF  (KOHPCH(R£SPONCE,INDEX,Cffi(ICHR),l).NE.O)  GOTO  100 
CALL  CONCAT(R£SPONC£> INDEX, 'j',1) 

ICHR=ICHR*1 
100  CONTINUE 
200  CONTINUE 
RETURN 
END 


REMOSETIl  IS  A  FORTRAN  SUBROUTIhE  WHICH  REPLACES  THE 
C*MM  IN  RESPONCE  WITH  VS.  VS  ARE  PART  OF  THE  PROPER  FORMAT  FOR 
C**+m  ENTERING  PARAICTER  VALUES  WHICH  VWtY  BY  CYCLE/DAY. 
Ctn»iiuiiiiiiiniiiiiinmmminiiimnmiinHinnHtiin 
SUBROUTINE  REHOSEMK  RESPONCE,  ILIN.FORH) 

CHARACTERS  RESPONCE 
LOGICAL  FORM 
NUM=0 

DO  200  1=2,25 
INDEX-1 

IF(KOMPCH(RESPONC£,IW€X,/;M).NE.O)  GOTO  100 
NUM=NUh*l 

cm  CONCATC RESPONCE,  INDEX,  V»l> 

100  CONTINUE 
200  CONTINUE 

IF  (NUM.NE.  ILIft-1)  FORM=.T. 

RETURN 

EM) 
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PLOT  PROGRAM 
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C***  0S29/N232D/SGN/CALLPL0T 
PAfi#€TER  MAXDAY=30 
DIMENSION  ARR1 <  MAXDAY) >  ARR2( MAXDAY ) 

LOGICAL  DEFAULT/. T./ 

REWIND  7 

READ(7)  SCALE. NUNDAY 
IF  (MJNDAY  ,LE,  MAXDAY)  GO  TO  10 
WRITE(6>5)  NUNDAY, MAXDAY 

5  FCRHAT<//'*+«€RROR  IN  CALLPLOT  NUHDAY  >  MAXDAY'/ 

4  '  NUNDAY  -  '15.  '  MAXDAY  =  M3) 

GO  TO  99 
10  CONTINUE 

IF  (SCALE  .EQ.  0.0)  DEFAULTS F. 

DO  20  I=1,NUMDAY 
READ  (7)  ARR2(I),ARR1(I) 

IF  (ARR2(I)  .LE.  10.0)  GO  TO  12 
WRITE<06,6)  IFIX(ARR2(I))>10 
12  CONTINUE 

IF  UWRl(I)  .LE.  SCALE)  GO  TO  20 
IF  (DEFAULT)  GO  TO  15 
SCALE=ARR1(I) 

GOTO  20 

15  CONTINUE 

you  ( I)=SCAJE 

WRITE(06,6)  IFIX(ARR1(I)),IFIX(SCALE) 

6  F0RMAT(//'***',I4»'  TOO  LARGE  TRUNCATED  T0M4) 
20  CONTINUE 

SCALE=FLOAT(IFIX( (SCALE+49)/50) ) 

WRITE(6,35)  (««2(I),I=1,NUW)AY) 

35  FORMAT  (,1*///(5F8.2) ) 

WRITE  (6,49) 

49  FORMAT  ('1'////'  SORTIES'/'  PER  AC'//) 

50  FORMAT  ('1 '////'  SORTIES'/'  PER  DAY'//) 

CALLPLOT  (ARR2, NUNDAY, 0.1, 0,*(F5.1)*> 

WRITE  (6,30)  ( IFIX( ARRH I )+.5)>I=l, NUNDAY) 

30  FORMAT  ('l'///(5I8)) 

WRITE  (6,50) 

C«J_  PLOT  (ARR1,NUHDAY,SCALE,1,*(15)*) 

99  CONTINUE 
STOP 
END 


PRECEDING  t*GE 
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SUBROUTINE  PLOT  ((WR.NUHEAY, SCALE, I TYPE, FORM) 
PMAMETER  MAXDAY=30,MAXA=f«XDAY*51 
DIMENSION  ARP (MAX DAY) 

CHARACTER* 10  FORM 
CHARACTER  A*1(HAXDAY,51) 

CHARACTER  YNUM*5(51) 

DATA  A/NAXA*'  V 

DATA  YNUM/50*'  IV  V 

> 

IF  ( ITYPE  .EG.  1)  GO  TO  10 
DO  15  1=5,50,5 

ENCODE (YNUM( I), FORM)  I*SCALE 
15  CONTINUE 
GO  TO  30 
10  CONTINUE 
DO  35  1=5,50,5 

ENCODE  (YNUH(I),FORH)  IFIX(SCALE*I) 

35  CONTINUE 
30  CONTINUE 

h 

DO  20  iM.NUHDAY 
K=IFIX(ARR(J)/SCALE+.5) 

20  A(J,K)  =  '*' 

45  CONTINUE 
DO  60  1=1,50 

WRITE  (6,70)  YNUM(51-I),<A(J,51-I)>J=l,NltfDAY) 
70  FORMAT  (3X,A5,30(1X,A1I) 

DO  50  J=1,NUHDAY 
A(J,51-I)='  ' 

CONTINUE 
CONTINUE 
WRITE  (6,80) 

80  FORMAT  <7X,  '0 - 10 - 

fc  ' - 30V//, 

Ji  28X,  DAY  OF  SCENARIO') 

RETURN 

END 


* 
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